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ABSTRACT 


The  computerized  Quick-Reacting  General  War  Gaming  System  (QUICK)  will 
accept  input  data,  automatically  generate  global  strategic  nuclear  war 
plans,  simulate  the  planned  events,  and  provide  statistical  output 
summaries.  QUICK'  has  been  programmed  in  FORTRAN  for  use  on  the  NMCSSC 
CDC  3800  computer  system. 

The  QUICK  Programming  Specifications  Manual  (PSM)  consists  of  three 
volumes:  Volume  I,  Data  Input  Subsystem;  Volume  1.1,  Plan  Generation 
Subsystem;  Volume  III,  Simulation  and  Data  Output  Subsystems.  The 
Programming  Specifications  Manual  complements  the  other  QUICK  Computer 
System  Manuals  to  facilitate  maintenance  of  the  war  gaming  system. 

This  volume.  Volume  III,  provides  the  programmer/analyst  with  a  technical 
description  of  the  purpose,  functions,  general  procedures,  and  programming 
techniques  applicable  to  the  programs  of  the  Simulation  ami  Data  Output 
subsystems.  This  volume  consists  of  two  parts:  Part  A  provides  a 
description  of  the  programs/subroutines  which  make  up  the  two  subsystems; 
Part  B  contains  the  associated  program  listings.  Companion  documents 
are : 


1.  GENERAL  DESCRIPTION 

Computer  System  Manual  CSM  GD  9A-67 

A  nontechnical  description  fof  senior  management  personnel 

2.  ANALYTICAL  MANUAL 

Computer  System  Manual  CSM  AM  9A-67  (three  volumes) 

Provides  a  description  of  the  system  methodology  for  the  non¬ 
programmer  analysts 

3.  USER'S  MANUAL 

Computer  System  Manual  CSM  UM  9-67 

Provides  detailed  instructions  for  applications  of  the  system 

4.  OPERATOR'S  MANUAL 

Computer  System  Manual  CSM  OM  9A-6/ 

Provides  instructions  and  procedures  for  the  computer  operators 
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CHAPTER  1 
INTRODUCTION 


The  QUICK  system  consists  of  four  functional  subsystems:  the  Data  Input, 
Plan  Generation,  Simulation,  and  Data  Output  subsystems.*  This  third 
volume  of  the  Programming  Specifications  Manual  describes  the  QUICK 
Simulation  subsystem,  hereafter  referred  to  as  the  Simulator,  and  the 
Data  Output  subsystem.  The  Simulator  accepts  basic  game  data  prepared 
by  the  Data  Input  subsystem,  plus  one  or  more  plans  prepared  by  the 
Plan  Generator.  .  The  Simulator  then  calculates  the  possible  detailed 
activities  and  results  if  the  plun(s)  were  implemented.  The  Simulator 
prepares  a  "history  tape"  which  is  processed  by  the  Data  Output  sub¬ 
system  to  give  various  reports  to  assist  the  user  in  evaluating  these 
activities  and  results. 

The  Simulator  consists  of  a  single  program,  SIMULATE.  It  simulates  the 
activities  of  the  missiles,  bombers,  and  tankers  in  a  general  war,  as 
planned  by  the  Plan  Generator.  While  the  Simulator  provides • certain 
end-of-gan.e  summary  information,  the  Data  Output  subsystem  provides  for 
printing  standard  and  special  summary  reports  on  the  events  which  occurred 
during  the  game. 

The  Data  Output  subsystem  consists  of  three  programs: 

1.  READSUM,  which  prepares 

a.  Standard  summary  reports 

b.  Four  Actual  Ground  Zero  (AGZ)  tapes  used  as  input  to 
non-QUICK  systems  to  obtain  damage  assessments 

c.  Two  "formatted"  history  tapes  (prepared  in  attribute- 
value  form)  for  use  in  program  TABGEN 

2.  TABGEN,  which  prepares  special  summary  reports  (tables)  from 
the  formatted  history  tapes  produced  by  program  READSUM 

3.  HISTP,  which  prints  out  a  detailed  time-sequenced  history  of 
selected  aspects  of  the  game,  primarily  for  diagnostic  use. 


*The  QUICK  subsystems  are  also  referenced  by  the  names  Input  subsystem. 
Plan  Generator,  Simulator,  and  Output  subsystem. 
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The  general  concepts  of  operation  and  the  analytical  aspects  of  the  design 
of  the  Simulator  arc  presented  in  Volume  III  of  the  Analytical  Manual.  A 
detailed  description  of  the  user-input  parameters  required  for  operating 
the  Simulation  and  Data  Output  subsystems  is  contained  in  the  User's 
Manual,  Volume  II  (see  chapters  4  and  5  respectively). 

Chapter  2  of  this  manual  provides  a  detailed  description  of  the  Simulator, 
while  chapters  3  to  5  describe  the  programs  of  the  Data  Output  subsystem. 
Within  each  chapter,  the  initial  sections  describe  the  concept  of 
operation  and  provide  a  description  of  the  input/output  files  and  common 
blocks  associated  with  each  program.  Subsequent  sections  of  each  chapter 
describe  the  subroutines  which  constitute  the  program. 


QUICK.  GENERAL-PURPOSE  UTILITY  PACKAGE 


In  addition  to  the  main  programs  of  the  four  QUICK  subsystems,  QUICK 
employs  a  general-purpose  utility  package.  This  utility  package  consists 
of  programs,  subroutines,  and  functions  which  perfoim  a  variety  of 
support  tasks  common  to  two  or  more  system  programs.  These  programs 
and  routines  are  discussed  in  chapters  2,  3,  and  4  of  the  Programming 
Specifications  Manual  (PSM) ,  Volume  I,  Data  Input  Subsystem  and,  where 
appropriate,  in  chapter  1  of  the  QUICK  User's  Manual,  Volume  II  (see 
Special-Purpose  Utility  Routines) .  Appendix  B  of  this  volume  contains 
a  list  of  the  entry  points  within  the  utility  programs. 


The  QUICK  System  Filehandler 

The  QUICK  system  filehandler  uses  a  word  stream  concept  of  operation. 

For  the  calling  program,  the  filehandler  retrieves  or  sends  a  stream  of 
words  from/to  the  input/output  (I/O)  devices.  Thus,  the  programmer 
need  never  consider  the  makeup  of  the  logical  or  physical  records  on  the 
tape  or  disk  for  filehandler  files.  Only  in  the  filehandler  itself  need 
the  maintenance  programmer  be  concerned  with  the  physical  characteristics 
of  I/O.  In  the  using  program,  input/output  on  filehandler  files  consists 
of  a  word  stream.  The  program  merely  requests  transfer  of  a  number  of 
words  to/from  the  device.  Thus,  a  description  of  the  physical  record 
structure  of  filehandler  files  is  irrelevant  to  the  maintenance  programmer 
except  when  he  is  maintaining  the  filehandler  subroutines  themselves. 

The  programs  of  the  Simulation  and  Data  Output  subsystems  use  the  file- 
handler  in  conjunction  with  input/output  operations.  The  filehandler 
subroutines  and  their  functions  are  summarized  below.  A  detailed 
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description  of  the  QUICK  filchandler  is  contained  in  chapter  2  of  the 
Programming  Specifications  Manual,  Volume  I. 


SUBROUTINE  FUNCTION 


AL0CDIR 

Initializes  disk  file  directory 

INITAPE 

Initializes  filehandler 

DEACTIV 

Removes  file  name  from  active  list 

SETREAD 

Prepares  file  for  reading 

RDWORD 

Transfers  one  word  from  file  input  buffer 
to  common  /TWORD/ 

RDARRAY 

Transfers  block  of  words  from  file  input 
buffer  to  user-specified  core  storage  area 

SETWRITE 

Prepares  file  for  writing 

WRWORD 

Transfers  one  word  from  common  /TWORD/  to 
file  output  buffer 

WRARRAY 

Transfers  block  of  words  from  user-specified 
core  storage  area  to  file  output  buffer 

TERMTAPE 

Terminates  files  after  reading  or  writing 
and  releases  buffer  area  for  use  by  other 
files 

COMPUTER  STORAGE  REQUIREMENTS 


The  NMCSSC  CDC  3800  computer  provides  a  maximum  of  65,534  words  of  core 
storage.  Excluding  the  requirements  of  the  operating  system,  the  core 
storage  requirements  of  the  programs  of  the  Simulation  and  Data  Ouput 
subsystems  are  as  follows: 

SIMULATE  .  55,305 

READSUM  .  48,310 

TABGEN  .  31,700 

HISTP . 13,820 
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CHAPTER  2 

THE  SIMULATION  SUBSYSTEM 


PURPOSE 


SIMULATE  performs  a  detailed  war  game  of  the  plans  generated  by  the  QUICK 
Plan  Generator.  The  plans  are  forwarded  to  the  Simulator  via  one  or  more 
event  tapes  (EVENTAPEs)  prepared  by  program  PLNTPLAN.  A  plan  consists  of 
a  series  of  desired  occurrences  (events)  for  a  vehicle,  which  together 
make  up  the  vehicle's  planned  mission  (referred  to  as  a  sortie).  The 
outcome  of  each  event  may  be  probabilistic  or  may  depend  on  conditions 
existing  at  the  time.  The  Simulator  checks  the  conditions,  and  determines 
probabilistic  events  randomly,  with  each  event  occurring  at  its  proper 
game  time. 

The  events  which  can  occur  for  a  bomber  arc: 

Launch 

Refuel 

Enter  Air  Defense  Zone 
Change  Altitude 
Decoy  Launch 
ASM  Launch 
Area  Attrition 
Local  Attrition 
Abort 
Recovery 

The  events  which  can  occur  for  a  tanker  are: 

Launch 

Enter  Refuel  Area 
Leave  Refuel  Area 
Abort 
Recovery 
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The  events  which  can  occur  for  a  ballistic  missile  are: 


Launch 

Complete  Launch  (disperse  MIRV::) 

Area  Ballistic  Missile  Defense 
Terminal  Ballistic  Missile  Defense 

A  damage  subroutine  is  called  whenever  a  bomber,  ASM,  or  ballistic 
missile  successfully  delivers  a  warhead  to  a  target. 


INPUT  FILLS 


Two  files  arc  input  to  program  SIMULATE:  the  EVFNTAPE  and  the  SIMTAPE. 
The  EVENTAPE,  of  which  there  is  normally  one  for  each  side,  is  an  output 
of  program  PINTPLAN  of  the  Plan  Generation  subsystem.  A  sortie  for  eacli 
vehicle  (bomber,  tanker,  or  missile)  in  the  game  is  read  into  the  array 
INDATA  in  common  block  /EDATA/,  from  where  it  is  put  in  the  list  of 
events  to  be  processed.  The  vehicle  class  is  recognized  from  the  value 
of  the  attribute*  ICLASS,  contained  in  the  10th  word  of  the  vehicle 
record.  The  EVENTAPE  may  also  contain  events  for  simulating  time- 
dependent  destruction-before- launch  (DBL)  of  naval  forces.  Such  records 
have  5HNAVAL  in  word  7.  The  EVENTAPE  also  contains  tables  of  recovery 
base  data  for  the  appropriate  side. 

The  SIMTAPE  is  an  output  of  program  INDEXER  of  the  Data  Input  subsystem. 
It  contains  basic  tables  of  characteristics  of  game  elements.  SIMULATE 
uses  these  tables  to  fill,  at  least  in  part,  the  following  common  blocks 

/AREADAT/ 

/ASMS/ 

/BOMBER/ 

/ BRKPNT/ 

/CAPACITY/ 

/DAMAGE/ 

/MISSLE/ 

/NAMES/ 


*For  attribute  description,  see  appendix  A. 
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/NAVDATA/ 

/NCOL/ 

/PAYLOAD/ 

/TANKER/ 

/TI  '  / 

/WA.w  J/ 

/ZONES/ 

/ 19501/ 


OUTPUT  FILES 


The  only  file  output,  by  SIMULATE  is  the  HISTAPE,  which  contains  a  record 
of  each  occurrence  or  event  in  the  game. 

The  HISTAPE  consists  of  a  series  of  pairs  of  records.  The  first  record 
in  the  pair  consists  of  a  single  word,  written  from  common  block  /NWORDOUT/, 
which  contains  the  number  of  words  in  the  second  record  of  the  pair.  The 
second  record  of  the  pair  is  written  from  array  NHI STOUT  of  common  block 
/HISTOUT/.  The  structure  of  the  array  NHISTOUT  for  the  various  possible 
events  is  shown  in  tables  1  through  7.  The  everts  which  correspond  to 
various  event  numbers  (NHISTOUT(7) )  are  shown  in  table  8.  Outcome  codes 
for  bombers  and  tankers  (NHISTOUT(19) ,NBCODE)  are  shown  in  table  9. 

Outcome  codes  for  missile  launch  (NHIST0UT(79) ,NTRYLC)  are  shown  in 
table  10,  and  burst-damage  codes  (packed  in  NHISTOUT(20) , INTARC)  are 
shown,  in  table  11. 

After  the  NHISTOUT  records  have  all  been  written  out,  4IILAST  is  put  on 
the  file.  The  400-word  array  IRECOV  (from  common  block  /RECOV/) ,  which 
contains  recovery  base  indices,  is  then  written  out.  An  end-of-file  mark 
occurs  next,  followed  by  a  record  containing  common  block  /BRKPNT/,  a 
record  containing  common  block  /NAMES/,  and  then  the  YIELD  array  from 
common  block  /WARHEAD/. 
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Tab  1  c  1 , 

.  NI II STOUT  Structure 

(Bomber  and  Tanker  Events) 

(Sheet  1  of  2) 

Nil  I  STOUT 

VARIABLE 

DESCRIPTION 

1 

NSIDU 

Side 

2 

N INBASE 

Launch  base  index 

3 

NINDV 

Vehicle  index 

4 

N  INTAR 

Target  index  ( INDEXNO) 

5 

NFIJNC 

Function 

6 

htimi: 

Event  time 

7 

N'EVENT 

Event  type  index 

8 

NPLACE 

Event  place  (new  zone) 

9 

NITYPE 

Bomber  type 

10 

Nl  CLASS 

Vehicle  class 

11 

NIREG 

Launch  region 

12 

NIALERt 

Initial  alert  status 

13 

NDUD 

Warhead  flag,  1  =  OK,  2  =  DUD* 

14 

NINZONE 

Current  (or  old)  zone 

15 

NNDECOYS 

Number  of  decoys 

16 

NIALT 

Current  (or  old)  altitude 

17 

NNCM 

Countermeasures  index 

18 

NASMTYPE 

ASM  type** 

19 

NBCODE 

Outcome  code 

20 

NDEPEN 

Recovery  base*** 

21 

T1I0UR 

Time  of  abort**** 

22 

FUTIME 

Time  of  next  event 

23 

-- 

Reserved  for  future  use 

24 

-- 

Reserved  for  future  use 

25 

NMHT 

Number  of  lines  in  HT  remaining 

26 

HD ELAY 

Delay  (launch  or  other) 

*LATTRIT  only 

**ALAUN  only 

***RF.COVERY  and  RECHEK  only 

****BLAUN  only 


7 


Table  2. 

NH I STOUT  Structure 
(Missile  Launch  Event) 

Nil  I  STOUT 

VARIABLE 

DESCRIPTION 

1 

NS  IDE 

Side 

2 

-- 

* 

3 

__ 

★ 

4 

-- 

+ 

5 

NNWTYP 

Warhead  type 

6 

1ITIME 

Event  time 

7 

N EVENT 

Event  type 

8 

N PLACE 

Launch  base  index 

9 

NITYPE 

Missile  type 

10 

N I CLASS 

Vehicle  class 

11 

NIREG 

Launch  region 

12 

N I ALERT 

Initial  alert  status 

13 

NNMIRV 

Number  of  MIRVs 

14 

-- 

* 

15 

NNWPNS 

Number  of  missiles 

16 

NNTARG 

Number  of  targets 

17 

NNCYCLE 

Number  of  missiles  processed 

18 

NNSUCC 

Number  of  missiles  successfully  launched 

19 

NNTEST 

Number  of  missiles  for  reprogramming 

20 

-- 

* 

n 

-- 

★ 

22 

TOT  I  ME 

Time  on  target  for  first  missile 

23 

-- 

* 

24 

-- 

* 

25  -  42 

NWPNLISf 

Missile  indices 

43  -  60 

NLAUNLIS 

Silo  indices 

61  -  78 

NTARLIST 

Target  indices 

79  -  96 

NTRYLC 

TRYLAUN  outcomes 

*  Not  used 
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Tabic  3. 

Nl  11  STOUT  Structure 

(Ballistic  Missile  Defense  Events) 

Nil  I  STOUT 

VARIABLE 

DESCRIPTION 

1 

NS  IDE 

Side 

2 

NINBASE 

Launch  base  index 

3 

NINDV 

Vehicle  index 

4 

N INTAR 

Target  index 

5 

NNWTYP 

Warhead  type 

6 

i  IT  I  ME 

Event  time 

7 

NEVENT 

Event  type 

8 

NPLACE 

Event  place 

9 

NITYPH 

Missile  type 

10 

NT CLASS 

Vehicle  class 

11 

NIREG 

Launch  region 

12 

NIALERT 

Initial  alert  status 

13 

NN'AL 

Number  of  interceptors  allocated 
(ballistic  missile  defense  only) 

14 

Not  used 

IS 

NNWHDS 

Number  of  warheads  (AREABMD  only) 

NNDET 

Number  detonated  (TERMBMD  only) 

16 

NTAIM 

Number  of  terminal  aim  points 
(AREABMD) 

NNPEN 

Number  of  penetrators  (TERMBMD  only) 

17 

NNTERM 

Number  of  warheads  entering  terminal 
defense  (TERMBMD  only) 

18 

NNAREA 

Number  of  warheads  entering  area 
defenses  (TERMBMD  only) 

JO 


Table  4. 

Nil I STOUT  Structure 
(Complete  Launch  Event) 

Nil  I  STOUT 

VARIABLE 

DliSCK1  PTION 

1  -  12 

Same  us  BMI)  events 

13 

NM1RV 

Number  of  MIRVs 

14 

NCODti 

Outcome  code  (1  -  success 
2  *  failure) 

15  -  28 

NTLIST 

MIRV  target  list 

11 


Table  5. 

NlllSTOlJT  Structure 
(Burst  Damage  Event) 

Nil  I  STOUT 

VARIABLE 

DESCRIPTION 

1 

NS  IDE 

Side 

2 

N INBASE 

Launch  base  index 

3 

NINDV 

Vehicle  index 

4 

N  INTAR- 

Target  index 

S 

NNWTYP 

Warhead  type 

6 

1  ITT  Mb 

Event  time 

7 

NbVb.NT 

Event  type 

8 

N PLACE 

Event  place 

o 

N I TYPE 

Vehicle  type 

10 

NICLASS 

Vehicle  class 

11 

NIREG 

Launch  region 

12 

N I ALERT 

Initial  alert  status 

13 

NDGX 

X-coordinate  of  desired  ground  zero 

14 

NDGY 

Y-coordinatc  of  desired  ground  zero 

IS 

NDGZ 

Desired  height  of  burst 

16 

N'AGX 

X-coordinate  of  actual  ground  zero 

17 

NAGY 

Y-coordinate  of  actual  ground  zero 

18 

NAGZ 

Actual  height  of  burst 

19 

NNCOL, I CUR 

Number  of  collocated  targets  in  group 
or  current  target  in  group 

20  -  59 

INTARC 

Indices  o t  collocated  targets  (right 
half  of  word) 

20  -  59 

Outcomes  of  collocated  targets  (left 
half  of  word) 
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Tablo  6. 

NI II  STOUT  VARIABLE 


1 

NS  IDE 

2 

NINBASE 

3 

-- 

4 

-- 

5 

-- 

6 

HTIMli 

7 

NEVENT 

8 

DTI  MB 

9 

N  ITT  PE 

10 

NI CLASS 

11 

NIREG 

12 

NI ALERT 

NH I STOUT  Structure 

(Time -dependent  DBL  Events) 

DESCRIPTION 

Side 

Base  index 

Not  used 

Not  used 

Not  used 

Time  of  event 

Event  index 

Time  of  DBL(NAVCAL) 

Vehicle  type 

Vehicle  class 

Launch  region 

Alert  status 
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Table  7. 

NHISTOUT  Structure 
(Zone  Status  Events) 

NHISTOUT 

VARIABLE 

DESCRIPTION 

1 

NBIDE 

Sidv 

2 

... 

Not  used 

3 

I  BEG 

Beginning  zone  index 

4 

-- 

Not  used; 

5 

I  END 

Ending  zone  index 

6 

HT1ME 

Time  of  event 

7 

NEVENT 

Event  index  (=6) 

8  to 

8  +  IEND-IBEG 

NPENZ 

Number  of  penetrators  in  zone 
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Table  8.  Event  Numbers 


EVENT 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


DESCRIPTION 

Missile  launch 
Bomber  or  tanker  launch 
Missile  complete  launch 
Bomber  refuel 
Enter  zone 
Zone  status 
Area  attrition 
Local  attrition 

Terminal  ballistic  missile  defense 
Burst  damage 

Tanker  enter  refuel  area 

Tanker  leave  refuel  area 

Bomber  or  tanker  abort 

ASM  launch 

Decoy  launch 

Recovery 

Change  altitude 

Area  ballistic  missile  defense 

Check  after  recovery 

Determine  time  of  naval  attrition 

Naval  attrition 

Used  for  ENDGAME 

Used  for  MONPRIN 
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Table  9.  Bomber  and  Tanker  Outcome  Codes 


NBCODL 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


DESCRIPTION 

Success 

Launch  base  dead 

Takeoff  abort 

Refuel  abort 

No  tankers  available 

Penetrate  enemy  territory 

Leave  enemy  territory 

Killed  by  area  attrition 

Killed  by  local  attrition 

Killed  by  local  attrition  after 
warhead  release 

ASM  killed  by  local  attrition 

Tanker  abort  in  refuel  area 

Departure  of  full  tanker 

Random  abort 

ASM  launch  abort 

Not  used 

Recovery  base  dead  on  arrival 
Scheduled  splash 

Abort  on  first  of  two  refuelings 

No  tankers  on  first  of  two  refuelings 

No  live  recovery  base  on  depenetration 

Recovery  base  saturated 

Killed  after  recovery 

Killed  after  recovery  at  home  base 

Recovery  at  home  base 

Home  recovery  base  dead  on  arrival 

Arrival  of  ASM  at  target 

Successful  first  of  two  refuelings 

Refuel  abort,  alternate  mission  return  home 

No  tankers  available,  alternate  mission 
return  home 
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Table  10.  Missile  Launch  utcomc  Codes 


NTRYLC 

0 

1 

2 

3 

4 

5 

6 

7 

8 


DESCRIPTION 

Missile  not  used 
Not  in  commission 
Silo  dead 
Launch  abort 

Silo  destroyed  on  launch  abort 
Failure  in  powered  flight 
Successful  launch 

Missile  planned  for  later  launch  event 
Not  in  commission  and  silo  dead 


Table  11.  Durst  Damage  Outcome  Codes 


CODE  DESCRIPTION 

1  Target  survives 

2  No  assessment  necessary 

3  Target  killed 

4  Target  already  dead 

5  Target  not  in  COLAR  (error  condition) 
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CONCEPT  OH  OPERATION 


General 


Each  of  the  records  read  in  from  the  EVF.NTAPE  consists  of  a  planned 
mission  for  a  specific  vehicle  (bomber,  tanker,  or  missile).  Each 
mission  consists  of  a  scries  of  events  for  that  vehicle,  each  event  to 
occur  at  a  specific  time.  There  arc  two  major  functions  within  SIMULATE: 

1.  To  maintain  the  missions  so  that  each  event  for  each  vehicle 
occurs  at  the  proper  time.  This  is  done  by  maintaining  the 
missions  in  an  "event  store"  described  below,  in  time  order 
by  the  next  event  for  each  vehicle. 

2.  To  simulate  the  occurrence  of  each  event,  with  an  appropriate 
subroutine. 

After  each  event  for  a  vehicle  has  been  processed,  if  the  vehicle  still 
had  additional  events  in  its  mission,  the  mission  is  reinserted  into  th^ 
event  store  so  that  its  next  event  will  be  processed  at  the  appropriate 
time.  Then  the  event  (mission)  at  the  top  of  the  list  is  processed. 

Thus  the  proper  sequence  of  events  is  maintained.  If  at  any  time  a 
vehicle  is  killed,  the  remaining  mission  is  no  longer  returned  to  the 
list  of  future  events. 


Event  Data 


The  data  associated  with  a  particular  vehicle,  when  the  next  event  for 
that  vehicle  is  being  processed,  are  stored  in  the  array  INDATA.  The 
structure  of  this  array  varies  with  the  type  of  event  being  simulated,* 
but  in  general  consists  of  a  series  of  simple  variables  and  arrays 
describing  the  vehicle  and  its  mission.  Prior  to  putting  the  mission 
back  into  the  event  store,  the  event  data  (actually  the  data  which  will 
be  placed  into  INDATA  when  the  next,  event  in  the  mission  occurs)  are 
placed  into  the  array  OUTDATA.  Because  many  of  the  arrays  within  a 
particular  OUTDATA  structure  arc  not  used  to  capacity,  not  all  of  OUTDATA 
need  be  transferred  to  the  event  store.  Therefore  the  data  are  first 
compressed  according  to  the  structure  specifications  for  the  event  and 
placed  into  the  array  OUTDATAP.  This  is  necessary  to  keep  the  size  of 
the  event  store  as  small  as  possible.  The  data  in  OUTDATAP  are  placed, 
along  with  the  time  of  the  next  event  in  the  mission,  the  event  type,  and 
data  structure  specifications,  into  the  event  store  in  time  sequence. 


*See  the  description  of  common  block  /EDATA/  for  the  structure  of  INDATA 
for  different  type  events. 
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When  the  next  event  for  the  vehicle  is  to  be  processed,  the  data  for 
the  event  are  taken  from  the  event  store  and  placed  in  the  array  INDATAP, 
which  is  in  the  same  compressed  form  as  when  the  same  data  were  in 
OUTDATAP.  The  data  are  then  placed  into  their  proper  locations  in  INDATA 
where  they  are  available  for  processing,  and  the  appropriate  event  sub¬ 
routine  is  called. 


Event  Store 

The  event  store,  Vhich  contains  all  the  future  events  to  be  processed, 
consists  of  two  parts.  The  first  part  is  kept  in  internal  core  memory  in 
the  form  of  a  "list  memory."  When  the  available  internal  space  is  used 
up,  the  internal  portion  is  put  out  (spilled)  onto  an  external  file. 

When  more  such  spills  have  occurred  than  there  are  external  files,  the 
spilled  events  are  merged  with  those  on  one  of  the  files.  The  external 
portion  of  the  event  store  thus  consists  of  a  number  of  files,  each  with 
a  time-ordered  list  of  events.  At  any  given  time,  then,  the  next  event  to 
be  processed  may  come  from  the  internal  event  store  or  from  any  one  of 
the  externa]  files. 


List  Memory 

The  sets  of  data  associated  with  the  missions  of  individual  vehicles 
are  kept  in  the  event,  store  in  time  order;  thus  at  the  head  of  the  list 
is  kept  that  mission  data  corresponding  to  the  next  occurrence  to  be 
simulated.  When  that  occurrence  or  event  has  been  processed,  the  remain¬ 
der  of  the  mission  is  inserted  back  into  the  list  so  that  the  next 
event  for  that  vehicle  will  occur  at  the  proper  time.  When  such  an 
insertion  is  made,  it  would  be  inconvenient  if  all  missions  whose  next 
event  is  at  a  later  time  had  to  be  shifted  in  the  computer  memory.  To 
avoid  this  needless  data  processing,  a  list  memory  is  used. 

The  list  memory  used  by  the  Simulator  consists  of  "cells"  or  groups 
of  five  words  each.  The  scheduled  mission  for  a  vehicle  consists  of  one 
"header"  ceil  and  a  variable  number  of  "data"  cells.  The  five  words  of 
the  header  cell  contain  the  following  data,  respectively: 

1.  The  time  of  the  next  event  in  the  mission 

2.  The  type  of  event 

3.  Data  packing  specification 

4.  Link  to  the  header  cell  of  the  next  mission 

5.  Link  to  the  first  data  cell 
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A  data  cell  contains  the  link  to  the  next  data  cell  (or  zero  if  there  are 
no  more  data)  plus  four  words  of  data.  Thus  when  a  new  mission  is  to  be 
inserted  into  the  list,  it  is  merely  necessary  to  put  the  data  into  some 
available  portion  of  the  list  memory,  the  physical  location  in  the  computer 
memory  not  being  important;  the  various  links  are  then  adjusted  to  put 
the  mission  into  its  proper  logical  position. 


SUMMARY  OF  SUBROUTINES  PERFORMING  MAJOR  FUNCTIONS 


Event  Handling  Subroutines 

The  calling  hierarchy  of  the  event  handling  subroutines  is  shown  in 
figure  1.  The  flow  of  the  event  data  is  shown  in  figure  2. 

Subroutine  DONEXT:  DONEXT  determines  the  next  event  to  be  executed, 
either  from  internal  list  memory  or  from  an  external  spill  file,  and 
calls  the  appropriate  event  subroutine.  Entry  EVSPILL  empties  the  list 
memory  onto  an  external  spill  file  when  list  memory  is  filled. 

Subroutine  SQUEEZE:  SQUEEZE  fills  array  INDATAP  with  the  event  data  in 
list  memory. 

Subroutine  EVUNPK:  EVUNPK  fills  array  INDATA  with  the  event  data  in 
array  INDATAP,  for  use  by  the  appropriate  event  subroutine.  The 
transfer  is  made  according  to  specifications  associated  with  the  event 
subroutine . 

Subroutine  PI  ANT :  PLANT  finds  the  appropriate  place  in  list  memory  to 
put  a  new  event  (mission) . 

Subroutine  EVPACK:  EVPACK  places  the  event  data  in  array  OUTDATAP. 

Subroutine  UNSQUEEZ:  UNSQUEEZ  transfers  the  event  data  from  array 
OUTDATAP  to  internal  list  memory. 


Event  Simulation  Subroutines 

Subroutine  ALAUN:  ALAUN  simulates  the  launch  of  an  air-to-surface 
missile  (ASM)  by  a  bomber. 

Subroutine  AREABMD:  AREABMD  simulates  the  activity  of  an  area  ballistic 
missile  defense  against  an  incoming  warhead  and  associated  decoys. 
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Fig.  1.  Calling  Hierarchy  of  Major  Event  Store  Subroutines 


Spill  Tapes 


EVSPILL 


Internal  List 
Memory 


EVUNPK 


EVPACK 


Subroutine  BABORT:  BABORT  simulates  the  scheduled  or  random  abort  of  a 
bomber  or  tanker. 

Subroutine  DDAMAGE:  BDAMAGE  determines  which  targets  arc  destroyed  when 
a  missile  or  bomber  warhead  detonates. 

Subroutine  BLAIJN:  BLAUN  simulates  the  attempted  launch  of  a  bomber  or 
tanker  from  its  base. 

Subroutine  CHANGALT:  CHANGALT  simulates  a  change  in  bomber  altitude 
between  the  two  states  high  and  low. 

Sub  rout i n  e  C  LAUN :  CLAUN  simulates  the  separation  of  MTRVs  to  their 
separate  targets,  and  checks  to  see  if  the  missile  was  destroyed  during 
the  powered  flight  phase. 

Subroutine  DLAUN:  DLAUN  simulates  the  launch  or  termination  of  bomber 
decoys . 

Subroutine  ERAREA;  ERAREA  simulates  the  arrival  of  a  tanker  at  a  refuel 
area. 

Subroutine  ESEC:  ESEC  simulates  the  entry  and  exit  of  a  bomber  from 
air  defense  zones. 

Subroutine  LATTRIT:  LATTRIT  simulates  the  entry  of  a  bomber  into  the 
local  defenses  at  a  target. 

Subroutine  LRAREA:  LRAREA  simulates  the  departure  of  a  tanker  from  a 
refuel  area. 

Subroutine  MLAUN:  MLAUN  simulates  the  attempted  launch  of  a  group  of 
missiles  from  a  single  squadron. 

Subroutine  N'EXTEVN'T :  NEXTEVNT  determines  whether  the  next  event  for  a 
bomber  will  be  its  regularly  scheduled  event,  a  random  abort,  or 
attrition  from  interceptor  defenses. 

Subroutine  NAVATR:  NAVATR  simulates  the  kill  of  a  target  by  naval 
attrition. 

Subroutine  NAVCAI.:  NAVCAL  determines  the  time  at  which  naval  attrition 
will  occur  for  a  target. 

Subroutine  RECHEK:  RECHEK  tests  to  see  if  a  bomber  or  tanker  was  killed 
by  an  enemy  burst  after  recovery. 
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Subroutine  RECOVERY:  RECOVERY  simulates  the  recovery  of  a  bomber  or 
tanker  at  its  home  or  other  base. 


Subroutine  REFUEL:  REFUEL  simulates  the  refueling  of  a  bomber. 

Subroutine  TERMBMD:  TERMBMD  simulates  the  activity  of  a  terminal 
ballistic  missile  defense  against  an  incoming  warhead  or  associated 
decoys . 


Major  Support  Subroutines 

Subroutine  SIMULATE:  SIMULATE  initializes  game  conditions  and  reads 
in  one  or  more  event  tapes. 

Subroutine  READIN:  READIN  reads  in  basic  game  data  from  the  SIMTAPE 
prepared  by  the  Data  Input  subsystem. 

Subroutine  RDCARDS:  RDCARDS  reads  the  data  cards  specifying  various 
conditions  for  a  particular  simulation. 


Major  Output  Subroutines 

Subroutine  AGZSUM:  AGZSUM  prints  out  at  the  end  of  a  game  a  summary 
of  the  numbers  and  yields  of  delivered  warheads  by  class  and  type  of 
delivery  vehicle. 

Subroutine  HIST:  HIST  prints  out  and  records  on  tape  the  outcome  from 
event  subroutines. 

Subroutine  STATSUM:  STATSUM  prints  out  at  the  end  of  a  game  the  original 
and  final  number  of  game  items  by  class  and  type. 

Subroutine  SSTAT:  SSTAT  prints  out  at  15-minute  intervals  of  game 
time  the  status  of  air  defense  zones. 


24 


/ 

COMMON  BLOCK  DEFINITIONS 


External  Common  Block  a 


The  common  blocks  used  by  program  SIMULATE  in  processing  input. /out put 
(I/O)  files  are  shown  in  table  12.  Tabic  13  shows  the  structure  of 
INDATA,  and  OUTDATA  for  the  various  events.  Tablo  14  shows  the  structure 
of  data  in  the  STATUS  array.  Table  15  shows  the  structure  of  data  in 
the  COLAR  array. 


Internal  Common  Blocks 

In  addition  to  the  common  blocks  associated  with  I/O  operations,  the 
common  blocks  described  in  tabic  16  are  used  internally  by  program 
SIMULATE.  Table  17  indicates  the  common  blocks  used  by  the  program 
subroutines  described  in  subsequent  sections  of  this  chapter. 
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Table  12.  Program  SIMULATE  External  Common  Blocks 
(Sheet  l  of  4) 

INPUT  FROM  EVENTAPE 


BLOCK  VARIABLE  OR  ARRAY*  DESCRIPTION 


EDATA 

OUTDATA(320) 

INDATA (320) 

Structure  of  INDATA  and  OUTDATA 
depends  upon  event  subroutine 
which  uses  it;  INDATA  blocks  are 
read  from  EVENTAPE  for  launch 
events  and  naval  DBL;  see 
table  13  for  an  explanation  of 
the  structure  of  INDATA  and 

OUTDATA  as  used  for  various 
events 

RECOV 

IRECOV(50,4,2) 

Recovery  base  index  . 

TOFREC(50,4 ,2) 

Time  of  flight  to  recovery 

NMORE (SO ,4 ,2) 

Remaining  recovery  capacity 

NRES (50 ,4  ,2) 

Remaining  reservations 

LSHIFT 

Unpacking  constant 

INPUT 

FROM  SIMTAPE 

ASMS 

PLABORT (20) 

Probability  of  ASM  launch  abo^t 

CEPA(20) 

Delivery  error  of  ASM 

BOMBER 

PLABT (80) 

Probability  of  bomber  launch  abort 

TMDEL(80) 

Mean  delay  after  abort 

AERATE (80) 

In-flight  abort  rate 

PRABT(80) 

Probability  of  refuel  abort 

CEPB  (80) 

Delivery  error  of  bomber 

*Parenthetical  values  indicate  array  dimensions.  All  other  elements 
are  single  word  variables. 
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Table  12.  (cont. ) 

(Sheet  2  of  4) 


BLOCK 

VARIABLE  OR  ARRAY 

BOMBER 

(cont.) 

TLINTB(80) 

IFUNCB(80) 

BRKPNT 

NTYPECUM(IS) 

NBLUETYP(15) 

TNDBEGCL(15) 

INDBEGTY (250) 

CAPACITY 

DEFPOT (40) 

CCP0T (40) 

DAMAGE  WTR21WT 

VULN (63) 

MISSI.E  PINC(80) 

PABORT (80) 
PDES(80) 

PFPF (80] 

TP ONER(80) 

TRET (80) 

IR(80) 

CEPM(80) 

PKMIS (80) 

TLINTM(80) 

IFUNCM(80) 


DESCRIPTION 

Bomber  launch  spacing 
Bomber  function 

Cumulative  number  of  types  through 
end  of  a  class 

Number  of  Blue  types  in  class 
Beginning  index  of  class 
Beginning  index  of  type 

Interceptor  base  type  defensive 
potential 

Command/ control  site  type  defen¬ 
sive  potential 

Maximum  effects  radius,  squared 
Target  vulnerabilities 

In-commission  probability 

Launch  abort  probability 

Probability  of  destruction  on 
abort 

Probability  of  failure  in  powered 
flight 

Duration  of  powered  flight 
Time  to  retarget 
Reprogramming  index 
Delivery  error 

Probability  of  destruction  by  ABM 
Launch  spacing 
Missile  function 
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Table  12.  (cont.) 

(Sheet  3  of  4) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

NAMES 

NAMESIDE(2) 

Name  of  side 

NAMCLS(15) 

Name  of  class 

NAMETYPE(250) 

Name  of  type 

NAVDATA 

PK(IO.IO) 

Probability  of  naval  DBL 

TK(10,10) 

Time  of  naval  DBL 

NCOL 

NCOL 

Number  of  collocated  targets 

MAXIND 

Total  number  of  targets 

PAYLOAD 

MIRV (40, 2) 

Number  of  MIRVs 

IWTYP(40,2) 

Warhead  type 

NBOMB (40,2) 

Number  of  MP.Vs 

NTDEC(40,2) 

Number  of  terminal  decoys 

NADEC(40 ,2) 

i 

Number  of  area  decoys 

TANKER 

TPLABT(40) 

Probability  of  tanker  launch  abort 

TTMDEL(40) 

Mean  delay  after  abort 

TABRATE (40) 

In-flight  abort  rate 

TLINTT  (40) 

Launch  spacing 

■  | 

' IFUNCT (40) 

Tanker  function 

TBMDATA 

PTK(2) 

Probability  of  kill  by  terminal 

ABM 

NTJNT(500) 

Number  of  terminal  interceptors 

WARHEAD 

YIELD(50) 

Warhead  yield 

PDUD(50) 

Dud  probability 

CEPW(50) 

Spacing,  if  MRVs 
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Table  12.  (cent.) 

(.Sheet  4  of  4) 


BLOCK 

VARIABLIi  OR  ARRAY 

DESCRIPTION 

ZONES 

AREA(63) 

Area  of  zone 

ZDEFPOT (63) 

Total  interceptor  potential  in 
zone 

ZCCPOT (63) 

Total  command  and  control  potential 
in  zone 

NPENZ  (63) 

Number  of  pcnctrators 

KILLZ (63) 

Number  of  kills  by  interceptor 

MAXZONE (2) 

Maximum  zone  index  for  side 

19S01 

NBCELL 

Dimension  of  LINKM 

LINKM(7000) 

Basic  list  memory 

STATUS (12000) 

Target  status  (sec  structure, 
table  14) 

CO LAR(4000) 

Collocation  data  (see  structure, 
table  15) 

OUTPUT  TO 

HISTAPE 

HISTOUT 

NHISTOUT  (200) 

See  Output  Files  description  for 
structure  of  NH I STOUT  array  for 

different  events 
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INDATA 

1 

2 

2 

4-8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
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Table  13.  INDATA/OUTDATA  Structure 
(Sheet  1  of  5) 

FOR  BOMBER  EVENTS 


VARIABLE 

SIDE 

INBASE 

l'NDV 

ITYPE 
ICLASS 
I  REG 
I ALERT 
IN ZONE 
NDH1 
NDLO 
I  ALT 
NCM 
PKNAV 


MHT 

MWT 


NP  LAN 
TABORT 


DESCRIPTION 

Side  (Blue=l ,  Rcd=2) 

Launch  base  index 
Vehicle  index 
Reserved  for  BDAMACE 
Bomber  type 

Vehicle  class  (bomber=2,  tanker=3) 
Launch  region 

Alert  status  (alert=l,  nonalert=2) 
Current  defense  zone 
Number  of  decoys  at  high  altitude 
Number  of  decoys  at  low  altitude 
Altitude  index  (low=(J,  high=l) 
Number  of  countermeasures 

Target  kill  probability  (if 
naval)* 

** 

** 

Number  of  lines  in  History  Table 
Number  of  lines  in  Weapon  Table 
** 

•k  ★ 

Number  of  lines  in  primary  mission 
In-flight  abort  time 


* PKNAV  is  INDATA (6)  on  EVENTAPE.  Program  SIMULATE  transfers  to  INDATA (18) . 
‘‘Reserved  for  future  use. 
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Table  13.  (cont.) 

(Sheet  2  of  5) 


INDATA 

VARIABLE 

DESCRIPTION 

History  Table 

27-106 

TINC 

Time  increment 

107-186 

INDP 

Event  place 

187-266 

INDE 

Event  type 

Weapon  Table 

267-278 

IWTYP 

Warhead  type 

279-290 

XDilZ 

X-coordinate  of  desired  ground 
zero 

291-302 

YDGZ 

Y-coordinate  of  desired  ground 
zero 

303-314 

zorz 

Desired  height  of  burst 

FOR  MISSILE 

LAUNCH  EVENT 

1 

1 

SIDE 

Side  (Blue=l,  Red=2) 

2 

INBASE 

Launch  base  index 

3 

- 

■* ** 

4 

(TMLAUN) 

*  * 

S 

I FAY LOAD 

Payload  index 

6 

- 

* 

7 

- 

* 

8 

NMIRV 

Number  of  MIRVs/missile 

9 

ITYPE 

Missile  type 

10 

ICLASS 

Vehicle  class  (missile=l) 

*Not  used 

**Used  only  by  SIMULATE 


Table  13. 


(cont . ) 

(Sheet.  3  of  5) 


INDATA 

VARIABLE 

DESCRIPTION 

11 

I  REG 

Launch  region 

12 

I ALERT 

Alert  status  (alert=l, 
nonalert=2) 

13 

NWPNS 

Number  of  missiles 

14 

NTARG 

2x  [Number  of  targets] 

Missile  list 

15-32 

WPNLTST(I) 

Missile  indices 

33-50 

LAUNLIST(I) 

Silo  indices 

51-320 

MLIST(J) 

Target  data 

Flight  times/ 

FOR  MISSILE 

COMPLETE  LAUNCH  EVENT 

1 

SIDE 

Side  (Blue=l,  Red=2) 

2 

INBASE 

Launch  base  index 

3 

INDV 

Vehicle  index 

4 

- 

*  *  * 

5 

IPAYLOAD 

Payload  type 

6 

- 

*  *  * 

7 

INITVULN 

Silo  vulnerability 

*  Maximum  number  of  targets  =  135.  After  EVUNPK,  NTARG  becomes 
number  of  target  groups  =  total  number  of  targe ts/NMIRV. 


**  Words  appear  in  pairs,  one  for  each  target.  The  structure  of 
the  target  data  is: 


15 

12 

12 

12 

3 

3 

INTAR 

DGX 

DGY 

DHOB 

Area 

Decoys 

Terminal 

Decoys 

***  Not  used. 
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Table  13,  (cont.) 

(Sheet  4  of  5) 


INDATA 

VARIABLE 

DESCRIPTION 

8 

NMIRV 

Number  of  MIRVs 

9 

ITYPE 

Vehicle  type 

10 

I CLASS 

Vehicle  class 

11 

IREC. 

Launch  region 

12 

I ALERT 

Alert  status  (alert=J, 
nonalert=2) 

13-26 

MDATA* 

Target  and  coordinates 

27-40 

- 

Times  of  flight 

FOR  BURST/ DAMAGE, 

AREA  BALLISTIC  MISSILE  DEFENSE,  AND 

TERMINAL 

BALLISTIC  MISSILE  DEFENSE  EVENTS 

1 

SIDE 

Side  (Blue=l,  Red=2) 

2 

INBASE 

Launch  base  index 

3 

INDV 

Vehicle  index 

4 

INTAR 

Target  index 

5 

NWTYP 

Warhead  type 

6 

DGX 

X-coordinate  of  desired  ground 
zero 

7 

DGY 

Y-coordinate  of  desired  ground 
zero 

8 

DHOB 

Desired  height  of  burst 

9 

ITYPE 

Vehicle  type 

10 

I CLASS 

Vehicle  class 

11 

I  REG 

Launch  region 

12 

I  ALERT 

Alert  status  (alert=l, 
non a] ert=2) 

*See  structure 

of  target 

data  under  Missile  Launch  event. 
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Table  13.  (cont.) 

(Sheet  5  of  5) 


INDATA 

VARIABLE 

DESCRIPTION 

13 

NWHDS 

Number  of  warheads* 

14 

TAIM 

Number  of  terminal  aim  points 

15 

AAIM 

Number  of  area  aim  points 

(AREABMD  only)** 

NAVCAL  EVENT 

1 

SIDE 

l=Blue,  2=Red 

2 

INBASE 

Base  index 

3 

IDBL 

Naval  DBL  index 

4-8 

Not  used 

- 

9 

ITYPE 

Target  type 

10 

ICLASS 

Target  class 

11 

I  REG 

Region 

12 

I ALERT 

Alert  status 

NAVATR  EVENT 

1 

SIDE 

l=BIue,  2-Red 

2 

INBASE 

Base  index 

3 

NCOL 

Number  of  collocated  targets 

4-8 

INCOL 

Collocated  target  indices 

*Not  BDAMAGE 

**Area  BMD  only 
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Table  14.  Structure  of  Word  in  STATUS  Array 


VARIABLE 

DESCRIPTION 

BITS  FROM  RIGHT 

TSTAT 

l=alive,  0=dead 

1 

IKEEP 

1  if  alive/dead  status  is  kept 

3 

TCOL 

1  if  collocated 

4 

NAVDBL 

1  if  NAVATR  planted 

6 

TARDEFLO 

Low-altitude  defense  potential 

7-9 

TARDEFHI 

High-altitude  defense  potential 

10-12 

IATTACK 

1  if  selected  for  preferential 

defense  13 

TVULN 

Vulnerability  index 

16-21 

I  AREA 

1  if  in  defended  area 

22 

ITERM 

Index  to  terminal  BMD 

25-33 

KDEFZON 

Area  BMD  zone 

34-39 

KDEFCMP 

Area  BMD  component 

40-42 

ZONE 

Bomber  defense  zone 

43-48 

Table  15.  Structure  of  Word  in  COLAR  Array 


VARIABLE 

KEYDY 

KEYDX 

KEYNTA 

KEYTIN 


DESCRIPTION 

Y-distance  to  next  target 
X-distance  to  next  target 
Number  of  targets  in  island 
Target  index 


BITS  FROM  RIGHT 

1-11 

12-22 

23-34 

35-48 
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Table  16.  Program  SIMULATE  Internal  Common  Blocks 
(Sheet  1  of  8) 


BLOCK  VARIABLE  OP  ARRAY* 

AATTRIT  I'K 

PCM 
ALT 
CON 
RPEN 

ABMDATA  IARDEF(2) 

PSEL(2) 


PAK(2) 

PREM(2) 

PAKD  (2) 

AGZSUM  NAGZ (2 ,80) 

TYD(2 ,80) 

ARE AO AT  AINT (20,3) 

NLRR(20) 

I OVERLAP (20) 
KRAD 


DESCRIPTION 
Scaling  factor 

Effectiveness  of  countermeasures 
Effect  of  bomber  altitude 
Effect  of  command/ control 
Effect  of  number  of  penetrators 

Preferential  vs.  random  defense 
flag  (l=prcfcrential ,  2=random) 

Probability  of  selection  for 
defense  (preferential);  fraction 
of  incoming  objects  to  which 
interceptors  are  allocated 
(random) 

Probability  of  killing  a  warhead 

Probability  of  killed  warhead 
being  removed 

Probability  of  killing  an  area 
decoy 

Number  of  warheads  delivered 
Total  yield  delivered 

Number  of  area  interceptors 
Number  of  long-range  radars 
Packed  radar  data 
Radar  index 


‘Parenthetical  values  indicate  array  dimensions.  All  other  elements 
are  single  word  variables. 
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Table 


BLOCK 

VARIABLE  OR  ARRAY 

CONST 

LARGE 

FTMAX 

DATTA 

ISIZE  • 

DEFZONE 

DEFZONE 

epack 

INDFORMO (100) 

EPSN 

EPSN 

ERROR 

IERR 

ESTOR 

SCALET 

SCALETI 

TMAX 

NWORDS 

NDIMD 

NEXTEV 

MERGSW 

INDATP (320) 

I0UTD(320) 

ISVDAT (320) 

MEMTIM 

TAPET(IO) 

16.  (cont.) 

(Sheet  2  of  8) 

DESCRIPTION 

Large  fixed  point  constant 
Large  floating  point  constant 

Maximum  INDATA  element  used 

Area  BMD  zone 

Unpacked  JPOKMAT  indices 

Small  constant 

Error  type 

Not  used 
Not  used 

Maximum  game  time 

Number  of  OUTDATAP  words  to 
output  for  planting  event 

Dimension  of  INDATP  and  IOUTD 

Pointer  to  next  event  in  list 
memory 

Switch  to  indicate  merging 
Packed  INDATA 
Packed  OUTDATA 

Temporary  packed  data  storage 

Time  of  earliest  list  memory 
event--must  immediately  precede 
TAPET 

Earliest  event  time  of  each  spill 
tape 
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Table  16.  (cont.) 

(Sheet  3  of  8) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

ESTOR 
(cont . ) 

SVTIME (10) 

rroco(io) 

Temporary  time  storage  while 
merging 

Words  to  go  on  each  spill  tape 

EVENT 

INDEV 

INDF 

Event  index  (see  table  8) 

Event  format  index 

EVINDX 

NBIND 

EVTIME(IO) 

INDEVB(IO) 

Number  of  sublists  in  list  memory 

Time  of  first  event  in  sublist 

Location  of  first  event  in  sublist 

FORMAT 

JFORMAT (10) 

Packing  specifications 

JFORMAT 


Unused 


U 

9  Bits 


0 

12  Bits 


Word 

Structure 


INDATA  Element  Dimension  of  Array 
Specifying  Num¬ 
ber  Used 


JFORMAT(I) 


I 

U 

D_ 

1 

0 

1 

2 

0 

0 

3 

13 

18 

4 

14 

270 

r, 

22 

12 

6 

21 

80 

7 

8 

14 

USED  FOR 

Simple  Variables 
Unused  Variables 
Missile  Arrays  (MLAUN) 
Target  Array  (MLAUN) 
Weapon  Table  Arrays 
History  Table  Arrays 
MIRV  Arrays  (CLAUN) 
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Table 


BLOCK 

VARIABLE  OR  ARRAY 

FUTPRINT 

IFUT 

GROUND 

IAGX 

IAGY 

HISREC 

IREC 

I  DEPEN 

LAZONE 

HISTABM 

I ARE AX 

NAL 

NWHDSX 

NDET 

NAREA 

NTERM 

HISTA1 
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TOFLT 
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HISTREF 

NFGO 

INDED 

INDEX 

INDEX (30) 
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DESCRIPTION 

Option  flag  for  printing  FUTIME 

X-coordinatc  of  AGZ 
Y-coordinate  of  AGZ 

Recovery  base  index 
Depenetration  corridor 
Depenetration  zone 

Index  to  area  of  current  zone 

Number  of  interceptors  allocated 

Number  of  warheads  penetrating 
area 

Number  of  objects  detonating 

Number  of  objects  entering  area 
defenses 

Number  of  objects  entering 
terminal  defenses 

Number  of  missiles  left  over 
Time  of  flight 
Weapon  index 

Units  of  fuel  carried  by  departing 
tanker 

Units  of  fuel  needed  by  bomber 
Randomly  ordered  indices 
Option  flag  for  using  BOMBP 
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BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

INREP 

INREP 

Option  flag  for  reprogramming 

IPRINT 

IPRINY(GO) 

Option  flags  for  HIST  prints 

IPSWICH 

- 

INDATA  print  options 

IPSW1 

.Ussile  INDAIA 

IPSW2 

Boi.’ber  INDATA 

IPSW? 

Tankei  INDATA 

IPSW4 

Missile  targets,  TOF 

IPSW5 

Missile  DGZ  and  decoys 

IPSW6 

Bomber  DGZ  and  warheads 

IPSW7 

Naval  attrition 

KEYWORDS 

KEYARRAY (20) 

STATUS  array  unpacking  keys 

KEYWRDS 

KTAR 

Target  unpacking  key  for  array 
IOVERLAP 

KZON(3) 

Zone  unpacking  keys  for  array 
IOVERLAP 

LATTRIT 

DEFHI 

Defenders  against  high-altitude 
attack 

DEFLO 

Defenders  against  low-altitude 
attack 

BKBRJ? 

Probability  of  bomber  kill  before 
weapon  release 

LIS7MEM 

I AVAIL 

Next  unused  cell  in  list  memory 

MONDAT 

MONSW 

Switch  for  diagnostic  printout 

40 


f 


BLOCK 

NEVTOT 


NSW 


NWORDOUT 


PLANTS 


•1EAD 


REFUEL 


TBMDATA 


TIME 
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VARIABLE  OR  ARRAY  DESCRIPTION 


NBEVTOT 

NCTR 


Number  of  events  m  1 1st  memory 

Number  of  events  planted  since 
last  directory  update 


"W 


Number  of  MON'SW  data  cards 


RDOUT 


Number  of  Nil  I  STOUT  words  written 
out  in  current  block 


MI.FIA(IO) 
BLFIA(IO) 
CLFIA(IO) 
TBFIA(IO) 
ABFIA(IO) 
NAFTA  (10) 
SSFIA(IO) 

HHOUR 

NET 

DELAY (2) 

NFTANK (100) 
NETANK(IOO) 

PTK(2) 

NTINT(SOO) 


TIME 
PUT  I  ME 


Missile  launch  packing  formats 
Bomber  event  packing  formats 
Complete  launch  packing  formats 
Terminal  HMD  packing  formats 
Area  BMD  packing  formats 
Naval  attrition  packing  formats 
Zone  status  packing  formats 

Game  time  11-hour 

Number  of  event  tapes  used 

Delay  for  each  side 

Number  of  units  of  fuel  in  area 
Capacity  of  empty  tankers  in  area 

Probability  of  kill  by  terminal 
BMD 

Number  of  terminal  interceptors 
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Current  game  time 

Time  of  event  being  planted 


Table  16. 

(cont.) 
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BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

TRYL 

INUEXWPN(18) 

Weapon  indices  of  successful 
launches 

PINCOMM 

In-commission  probability 

PNOABORT 

Probability  of  not  aborting 

PDEST 

Probability  of  destructive  abort 

PFLTFAIL 

Probability  of  powered  flight 
failure 

TPF 

Time  required  to  leave  lethal 
radius  of  silo 

TRETARC 

Time  required  to  retarget 

IREP 

Reprogramming  capability 

NCYCLE 

Number  of  missiles  processed 

NCOM 

Number  of  missiles  in  commission 

NALIVE 

'Number  of  missiles  alive 

NNABT 

Number  of  missiles  not'  aborted 

NSUCC 

Number  of  missiles  successfully 
launched 

NLATER 

Number  of  missiles  to  be  launched 
later 

NDES 

Number  of  missiles  destroyed 

NTEST 

i 

Number  of  missiles  for 
reprogramming 

VULNDATA 

PG  [12) 

Data  for  P  vulnerability,  ground 
burst' 

PA(12) 

Data  for  P  vulnerability,  air 
burst 

QG(8) 

Data  for  Q  vulnerability ,  ground 
burst 

QA(8) 

Data  for  Q  vulnerability,  air 

burst 
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BLOCK 

ZSTATUS 


Table  16.  (cont.) 
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VARIABLE  OR  ARRAY  DESCRIPTION 

JTMAX  Maximum  number  of  zone  status 

printouts 
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PROGRAM  SIMULATE 


PURPOSE : 

To  initialize  arrays,  read  the  event  data,  plant 
the  initial  events,  and  start  the  simulation. 

ENTRY  POINTS: 

SIMULATE 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

AGZSUM,  AREADAT,  BOMBER,  BRKPNT,  DATTA,  EDATA, 
ESTOR,  EVENT,  FI  LABEL,  FORMAT,  FUTPRINT,  111 STOUT, 
IPRINT,  IPSWICH,  1TP,  KEYWRDS,  KEYWORDS,  MY  I DENT, 
MYLABEL,  NAMES,  NCOL,  NOPRINT,  NWORDOUT,  PLANTS, 
READ,  RECOV,  REFUEL,  STATUS,  TANKER,  TIME,  TK'ORD, 
ZONES,  19501 

SUBROUTINES  CALLED: 

ABORT,  ADDMEM,  BTINPRIN,  BMDSTAT,  UONEXT,  INITAPE, 
INITEV,  INITLIST,  KEYMAKE,  MSINPRIN,  OPTPRIN, 

PAGES KP,  PLANT,  PLANTS,  RANFSET,*  RDARRAY ,  RDCARDS 
RDWORD ,  READ IN,  SE TERROR,  SETREAD,  SETWR1TE, 
TERMTAPE 

CALLED  BY: 

None 

The  operations  performed  by  program  SIMULATE  are  shown  in  figure  3. 

As  indicated  (statement  1),  SIMULATE  begins  by  initializing  several 
arrays.  All  the  words  in  arrays  INDATA,  OUTDATA,  STATUS,  COLAR,  NPENZ , 
KILLZ,  NAGZ ,  TYD,  NFTANK,  NOTANK,  NH I STOUT  and  IRECGn  are  set  to  zero. 

Then,  subroutine  IMTAPE  is  called  to  initialize  the  file  handling 
operations.  The  order  in  which  the  event  spill  files  are  used  is  deter¬ 
mined  by  filling  the  first  N  words  of  ITAPES,  where  N  is  the  number  of 
spill  files.  ITAPES(N+1)  is  set  to  zero.  Subroutine  INITEV  is  called 
to  initialize  the  event  handling  subroutines,  and  INITLIST  to  initialize 
list  memory. 

Next,  the  STATUS  array  is  divided  into  the  following  packed  items  through 
calls  on  KEYMAKE:  TSTAT,  IKEEP,  TCOL,  NAVDBL,  TARDEFLO,  TARDEFHI,  I ATTACK, 
TVULN,  I AREA,  ITERM,  KDEFZON,  KEDFCMP,  and  ZONE.  Each  COLAR  array  word 
is  divided  into  the  following  packed  items  through  calls  on  KEYMAKE: 

XEYTIN,  KEYNTA,  KEYDX,  and  KEYDY.  Each  IOVERLAP  array  word  is  divided 
into  the  following  packed  items  through  calls  on  KEYMAKE:  KTAR,  KZON(l), 
KZ0N(2) ,  and  KZ0N(3). 


♦System  Library  Function 
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The  Simulator  input  data  cards  are  read  and  printed  by  a  call  to  RDCARDS. 

ITP,  current  tape  unit,  is  sot  to  seven  to  indicate  the  simulation  data 
tape  SIMTAPE  and  subroutine  READIN  is  called  to  read  the  tape. 

Subroutine  BMDSTAT  is  called  to  print  the  ballistic  missile  defense 
status.  IMAX  is  set  to  the  index  of  the  first  word  of  array  STATUS 
beyond  the  last  word  used  by  the  final  type  of  item.  NMAX  is  set  to  the 
number  of  unused  words,  and  ADDMEM  is  called  to  add  this  unused  portion 
of  STATUS  to  list  memory.  IMAX  is  set  to  the  index  of  the  fi^st  word  of 
array  COLAR  beyond  the  last  word  used  for  collocated  targets.  NMAX  is 
set  to  the  number  of  unused  words,  and  ADDMEM  is  called  to  add  this  unused 
portion  of  COLAR  to  list  memory. 

KPASS  is  set  to  one.  All  of  the  following,  through  the  call  on  subroutine 
TERMTAPE,  is  done  for  each  event  tape.  (The  Simulator  can  perform  a  one  or 
two  sided  simulation.  An  event  tape  is  required  for  each  plan  being 
simulated.)  ITP  is  set  to  six,  the  event  tape.  Subroutine  SETREAD  is 
called  to  put  tape  ITP  in  read  status. 

ITP  is  set  to  six  and  subroutine  RDWORD  called  to  read  a  data  word.  When 
it  is  zero,  control  goes  to  statement  32.  If  not,  RDARRAY  is  called  to 
read  an  INDATA  block.  The  record  is  checked  to  determine  whether  a 
NAVDBL  event  is  called  for;  if  it  is,  it  is  planted.  Otherwise  ICLASS, 
vehicle  class,  is  tested.  If  ICLASS  is  one,  the  vehicle  class  is  "missile." 
FUTIME,  event  execution  time,  is  set  to  the  DELAY  for  the  current  side 
plus  the  planned  launch  time.  Subrou  .ne  PLANTS  is  called  to  plant  a 
missile  launch  event  for  time  FUTIME.  IPSW1  is  tested.  If  it  is  one, 
the  event  data  block  is  printed  in  expanded  form  by  a  call  to  MSINPRIN. 

In  any  case,  control  is  then  transferred  to  statement  20. 

If  ICLASS  is  two,  the  vehicle  is  a  bomber.  The  spacing  factor  TLINT  is 
set  to  the  spacing  factor  for  this  bomber  type  TLINTB (ITYPE) .  If  ICLASS 
is  three,  the  vehicle  is  a  tanker.  The  spacing  factor  TLINT  is  set  to 
the  spacing  factor  for  this  tanker  type  TLINTT( ITYPE) .  In  either  case, 
event  execution  time  is  set  to  the  first  History  Table  time  increment 
TINC(l),  plus  the  delay  time  for  this  side  DELAY(SIDE),  plus  TLINT,  plus 
the  time  to  become  invulnerable  to  a  weapon  burst  at  the  base.  The 
History  and  Weapon  tables  are  inverted  so  that  the  first  event  is  at  the 
bottom  of  the  list.  PLANTS  is  called  to  plant  a  bomber/tanker  launch* 
event  for  time  FUTIME.'  If  desired,  the  event  data  block  is  printed  in  an 
expanded  form  by  a  call  to  BTINPRIN.  In  any  case,  control  is  transferred 
to  statement  20. 

When  the  last  event  record  on  the  current  tape  has  been  read,  the  recovery 
arrays  are  read,  and  subroutine  TERMTAPE  is  called  to  terminate  the  current 
event  tape.  When  the  required  number  of  event  tapes  has  been  read,  ITP 
is  set  to  five  to  indicate  the  History  tape,  and  subroutine  SETWRITE  is 
called  to  put  the  tape  in  write  status. 
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The  first  zone  status  event  is  planted  for  time  zero,  and  the  end-of-game 
event  is  planted  for  time  TMAX,  maximum  game  time,  minus  .01  hours. 
PAGliSKP  is  called  to  eject  a  page  on  the  printer,  and  subroutine  DONiiXT 
is  called  to  start  and  control  the  simulation. 
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Call  BNDSTAT 
For  BMO 
Status  Summary 


Ust  Block? 


Call  ADUMHM 
To  Add  Unused 
Portion  Of  STATUS 
To  List  Memory 


[Value  Of  I C LASS 


Set  Event 
Execution 
Time 


Call  ADMfcM 
To  Add  Unused 
Portion  Of  COLAR 
To  List  Memory 


Event  Lxccutiun 
Tir:c-=Delay  Tire 
♦  Spacing  Factor 


Call  kUARRAY 
To  Read  An 
IN DATA  Block 


Plant  Missile 
Launch  Event 


Plant 
Naval  DHL 
Event 


ITP*G 

tVESTAPl: 


Cali  SETREAD 
To  Put  Tape  In 
Read  Status 


no 

jjcall  MSINPR1N 

1 

(cont . ) 
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SUBROUTINE  AATTRIT 


PURPOSE : 


ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


1.  To  record  bomber  kill  by  enemy  area  defense. 

2.  To  decrease  the  number  of  penct raters  in  the 
defense  zone. 

AATTRIT 

None 

EDATA,  ZONES 

HIST 

DONHXT 


Method 


Relevant  data  arc  transferred  to  the  array  NH I STOUT  by  a  call  on  subroutine 
HIST.  Additional  recording  functions  are  performed  by  a  second  call  on 
HIST.  The  number  of  ponctrators  in  the  zone,  NPHNZ(INZONE)  ,  is  de¬ 
creased  by  one  for  the  bomber  and  by  the  number  of  decoys  NDI.'I  and  NDLO 
at  high  and  low  altitude,  respectively.  The  number  of  bombers  Killed  by 
area  attrition  in  the  current  zone,  KILLZ ( 1NZ0NE) ,  is  increased  by  one, 
and  the  subroutine  exits. 

Subroutine  AATTRIT  is  illustrated  in  figure  4. 
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Fig -  4.  Subroutine  AAiTRJT 
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subroutine  addmlm 


PURPOSE : 


To  add  an  array  to  available  list  memory. 


ENTRY 

POINTS: 

ADDMEM 

FORMAL 

PARAMETERS : 

IND 

NBWDS  - 

IARR  - 

COMMON 

BLOCKS: 

LI.STMEM 

Starting  index  in  the  array  IARR 
Number  of  words  to  be  added 
Array  to  be  added 


SUBROUTINES  GALLOP :  None 

CALLED  B'.  :  SIMULATE,  INITLIST 


Method 


The  counter  NC  is  set  to  zero,  and  I  is  initialised  to  INI).  If  NBWDS  is 
less  than  five,  the  number  of  words  in  a  list  memory  cell,  the  subroutine 
returns. 

Links  are  stored  in  every  fifth  word  of  IARR,  and  NC  incremented  by  five 
until  NC  exceeds  NBWDS.  Then  the  last  cell  is  linked  into  list  memory, 
and  the  first  cell  is  labelled  as  the  next  available  cell  of  list  memory. 
The  array  IARR  must  be  in  common  block  /LINL1/. 

Subroutine  ADDMEM  is  illustrated  in  figure  5. 
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Subroutine  ADDMHM 


SUBROUTINE  AGZSUM 


PURPOSE : 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  summarize  at  the  end  of  the  simulation  the 
number  of  warheads  delivered  and  their  total  yield, 
broken  down  by  side,  class,  and  type  of  delivery 
vehicle. 

AGZSUM 

None 

AGZSUM,  BRKPNT,  NAMES 
None 


ENDGAME 


Method 


The  number  of  warheads  delivered  and  their  yield  are  accumulated  in 
subroutine  BDAMAGE  and  stored  by  side  and  type  of  delivery  vehicle. 

Warheads  delivered  by  ASM  are  included  under  the  bomber  type  which  launched 
the  ASM. 

First  the  Blue  summary  is  printed  out,  then  the  Red.  Within  each  side, 
missiles  are  printed  first,  then  bombers. 

In  addition  to  the  listings  by  type  of  delivery  vehicle,  there  is  a  missile 
total,  a  bomber  total,  an  overall  total  for  each  side,  and  a  summary  total 
in  the  game. 

Subroutine  AGZSUM  is  illustrated  in  figure  b. 
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Subroutine  AGZSUM 


SUBROUTINE  ALAUN 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED : 
CALLED  BY: 


To  simulate  the  attempted  launch  of  an  air-to- 
surface  missile  (ASM)  from  a  bomber. 

ALAUN 

None 

ASMS,  EDATA,  TIME 

HIST,  NEXTEVNT,  PLANTS,  RANF* 

DON EXT 


Method 


The  execution  of  ALAUN  is  recorded  through  a  call  to  subroutine  HIST.  The 
ASM  type  JTYPE  is  found  in  the  bomber  History  Table  entry  INDP(IHT),  and 
the  launch  abort  probability  for  that  type  PLABORT(JTYPE)  is  retrieved. 

This  probability  is  compared  to  a  random  number  generated  by  library 
subroutine  RANF  to  determine  if  the  ASM  is  successfully  launched. 

If  the  launch  is  unsuccessful,  this  is  recorded'. 

If  the  launch  is  successful,  the  event  data  for  the  ASM  are  moved  from 
INDATA  to  OUTDATA.  The  data  moved  include  side,  vehicle  index,  weapon 
type,  event  type,  event  time,  event  place,  and  desired  ground  zero  components. 
ASM  type  is  stored  in  the  countermeasures  cell.  A  Local  Attrition  event  is 
then  planted  for  the  ASM  through  a  call  to  subroutine  PLANTS,  and  the  suc¬ 
cessful  launch  is  recorded. 

In  either  case  the  History  Table  pointer  IIIT  and  the  Weapon  Table  pointer 
JiVT  are  moved,  and  the  next  bomber  event  is  prepared  for  by  calling 
subroutine  NEXTEVNT. 

Subroutine  ALAUN  is  illustrated  in  figure  7. 
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SUBROUTINE.  AREABMD 


PURPOSE :  To  tost  for  survival  of  missiles  against  an 

area  ballistic,  missile  defense  system. 

ENTRY  POINTS:  AREABMD 

FORMAL  PARAMETERS :  None 

COMMON  BLOCKS:  ABMDATA,  AREADAT,  DEPZONE,  EDATA,  I1ISTABM,  INDEX, 

KEYWORDS,  19501 

SUBROUTINES  CALLED:  HIST,  HISTWRIT,  I  FIND,  I  GET,  J.PUT,  RANF,  * 

RANORDER,  TERMBMD 

CALLED  BY:  DONEXT 


Method 

Subroutine  AREABMD  (sec  figure  8)  simulates  the  activity  of  an  area 
ballistic  missile  defense  against  an  incoming  warhead  and  its  associated 
decoys . 

In  QUICK,  up  to  20  ballistic  missile  defense  areas  may  be  established. 

Each  of  the  defended  areas  may  have  up  tc  three  interceptor  bases,  each 
with  its  own  inventory  of  antiballistic  missiles.  There  may  be  as  many 
as  three  long-range  radars  supplying  surveillance  information  to  the 
interceptor  sites. 

When  called,  subroutine  AREABMD  computes  OSIDE,  the  defending  side.  This 
is  accomplished  by  subtracting  the  value  SIDE  from  three;  i.e., 
0SIDE=3-SIDE.  IAREA,  the  area  defensive  status  of  the  current  target,  and 
KDEFZON,  the  area  defense  zone  of  the  target,  are  retrieved  through  calls 
on  IGET  and  stored  in  IA  and  DEPZONE,  respectively.  If  IA  is  zero,  if 
NLRR (DEFZONE)  is  zero,  or  if  all  the  ABM  bases  in  the  zone  are  exhausted 
(AINT (DEFZONE, T)=0 , 1=1 ,2 , 3) ) ,  AREABMD  is  skipped  and  TERMBMD  is  called. 

Otherwise  NINTR (DEFZONE)  is  set.  equal  to  the  total  number  of  area  inter¬ 
ceptors  in  DEFZONE  for  each  area  defense  zone,  HIST  is  called  to  record 
the  call  to  AREABMD,  and  counters  NPEN,  NDEC,  NAL,  and  KCOL  are  set  to 
zero.  IAREAX  is  set  to  IA  and  NWHU5X  to  NWIIDS.  IARDEF (OSIDE) ,  type  of 
area  defense  for  this  side,  is  tested.  If  the  value  is  one,  the  defense 
will  be  preferential.  If  the  value  is  two,  the  defense  will  be  random. 
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Preferential  Defense 


If  a  preferential  defense  is  used,  the  attack  indicator  IATTACK, 
indicating  if  the  target  has  already  been  attacked,  is  retrieved  through 
a  call  to  I GET  and  stored  in  IAT.  If  IAT  is  nonzero,  the  target  has 
been  attacked.  This  is  recorded  and  control  transferred  to  statement  9 
below.  Otherwise  PSEL(OSIDE)  is  compared  to  a  random  number  to  see  if 
the  target  will  be  defended.  If  so,  ISEL  is  set  to  one,  and  the  selection 
is  recorded.  It  not,  ISEL  is  set  to  zero,  and  the  non-selection  is 
recorded.  Control  passes  to  statement  7  in  either  case. 

In  statement  7,  IATTACK,  the  preferential  attack  indicator,  is 
turned  on  and  [AREA,  the  area  defensive  status,  is  set  to  the  value  of 
ISEL  through  calls  on  subroutine  IPUT.  KCOL,  the  collocation  flag,  is 
tested  to  sec  if  .tic  current  target  is  the  primary  target  of  the  weapon. 

If  so,  TCOL,  collocation  indicator  for  this  target,  is  retrieved  through 
a  call  to  IGET.  If  KOLOC  is  zero,  control  is  transferred  to  statement  8 
below.  Otherwise  INTAR,  the  target  index,  is  saved  in  INTO  and  KCOL  is 
set  to  one. 

Subroutine  IFIND  is  called  to  find  the  index  of  the  word  in  array 
COLAR  containing  the  collocation  information  for  INTAR  and  to  store  the 
index  in  KIND.  KEYNTA,  the  number  of  targets  in  the  collocated  group,  is 
retrieved  through  a  call  to  IGET  and  stored  in  NTA.  If  NTA  is  nonzero, 
the  next  target  is  NTA  targets  back  in  COLAR,  so  KIND  is  decreased  by 
NTA.  In  either  case,  KIND  is  increased  by  one.  KEYTIN,  the  next  target 
index,  is  retrieved  through  a  call  to  IGET  and  stored  in  IX.  If  IX  equals 
INTO,  the  list  is  complete  and  control  is  transferred  to  statement  8 
below.  Otherwise,  control  is  transferred  to  statement  7  above. 

In  statement  8,  if  ISEL  is  zero,  the  target  is  undefended,  and  control 
is  transferred  to  statement  21  below.  If  ISEL  is  one,  control  passes  to 
statement  9  below. 

In  statement  9,  AINT(Z,1),  AINT(Z,2),  and  A1NT(Z,3),  the  number  of 
interceptors  at  each  of  the  ABM  bases  covering  area  defense  zone  Z,  are 
compared  and  a  permutation  of  the  integers  1,  2,  3  is  stored  in  I0RD1, 
I0RD2,  and  IORD3  in  such  a  way  that  AINT(Z, I0RD1)>AINT(Z , I0RD2) >AINT (Z , 
I0RD3) .  NINTRfZ),  the  total  interceptor  supply  at  area  defense  zone  Z, 
is  compared  to  AAIM,  the  number  of  area  aim  points.  If  AAIM  is  smaller, 
control  is  transferred  to  statement  32,  below.  Otherwise,  NINTR(Z)  is 
reduced  by  AAIM;  NAL,  the  number  of  defenders  allocated,  is  set  to  AAIM; 
and  AINT(Z,I),  I  =  1 ,  2,  3  are  reduced  so  as  to  simulate  firing  inter¬ 
ceptors,  first  from  the  ABM  base  with  the  largest  interceptor  supply,  then 
from  the  base  with  the  next  largest  supply,  and  so  forth  until  NAL 
interceptors  have  been  fired. 


In  statement  12,  the  following  checking  is  done  for  each  of  the 
NW1  IDS  warheads:  PAK(OSIDE),  probability  of  area  kill,  is  compared  to  a 
random  number.  If  PAK(OSIDE)  is  smaller,  the  number  of  penetrators 
NPEN  is  increased  by  one,  and  the  next  warhead  is  tested.  Otherwise, 
PREM^OSIDE),  the  probability  of  warhead  removal,  is  compared  to  a  random 
number.  If  PREM(OSIDE)  is  smaller,  the  number  of  decoys  NDEC  is  in¬ 
creased  by  one.  In  either  case,  the  next  warhead  is  tested. 

When  each  of  these  warheads  has  been  tested,  ND  is  set  to  the  dif¬ 
ference  between  the  number  of  terminal  aim  points  TAIM  and  NWHDS.  The 
following  check  is  -made  for  each  of  the  ND  decoys:  if  PAKD(OSIDE),  the 
probability  of  area  kill  of  decoy,  is  smaller  than  a  random  number,  NDF.C 
is  increased  by  one  to  indicate  terminal  decoy  leakage. 

When  each  of  these  decoys  has  been  tested,  NVMDSX  and  NWHDS  are  each 
set  to  NPEN,  and  TAIM  is  set  to  the  sum  of  NPEN  and  NDEC. 

In  statement  21,  the  number  of  attacking  objects  that  have  leaked 
through  is  recorded,  subroutine  IIISTWRIT  is  called  to  write  out  the 
HISTOUT  block  for  the  AREABMD  event,  subroutine  TERMBMD  is  called,  and 
the  subroutine  exits. 

Random  Defense 

In  statement  28,  the  following  test  is  made  for  each  of  the  AAIM 
area  aim  points.  If  PSEL(OSIDE),  the  probability  of  selection  for 
defense,  is  not  less  than  a  random  number,  then  the  number  of  defenders 
allocated  NAL  is  increased  by  one.  When  each  of  these  points  has  been 
tested,  control  is  transferred  to  statement  32. 

In  statement  32,  NINTH (Z)  is  compared  to  NAL.  If  NAL  is  smaller,  NAL 
is  set  to  NINTR(Z)  and  the  allocation  uf  interceptors  is  recorded.  In 
either  case,  NINTH (Z)  is  reduced  by  NAL,  and  AlNT(Z.l),  A1NT(Z,2)  and 
AINT(Z,3)  are  reduced  so  as  to  simulate  firing  the  weapons,  first  from  the 
base  with  the  largest  weapon  supply,  then  from  the  base  with  the  next 
largest,  and  sc  forth  until  NAL  weapons  have  been  fired.  The  number  of 
objects  not  attacked,  NREM ,  is  set  to  AAIM  minus  NAL. 

ICAT  is  initializer!  for  randomizing.  Words  one  through  NWHDS  arc 
set  to  one;  words  N‘\HG3+1  through  TAIM  are  set  to  two;  and  words  TA1M+1 
through  AAIM  are  set  to  zero.  Subroutine  REORDER  is  called  to  randomly 
reorder  INDEX.  Words  INDEX(l)  through  INDEX (ROM)  of  ICAT  are  tested.  7f 
the  value  is  one,  the  object  is  a  penetrator;  if  two,  a  terminal  decoy. 
After  these  NREM  words  are  tested,  NWHDS  is  decreased  by  NPEN,  TAIM  is 
decreased  by  the  sum  of  NDEC  and  NPEN,  and  control  is  transferred  to 
statement  12,  above. 
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SUBROUTINE  BABORT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  record  a  bomber  abort  and  to  decrease  tho  number 
of  penetrators  if  the  bomber  aborts  after  entering 
enemy  territory. 

BABORT 

None 

EDATA,  TIME,  ZONES 

MIST 

DONE XT 


Method 


If  the  current  zone  INZOND  is  in  enemy  territory  and  the  vehicle 
is  not  a  tanker,  the  number  of  penetrators  in  that  zone  NPENZ (INZONE)  is 
decreased  by  one  (for  the  bomber)  plus  the  number  of  decoys  the  bomber 
has  launched. 

If  the  current  event  index  in  the  bomber  llistoxy  Table  is  equal  to  13 
(bomber  abort),  the  abort  is  recorded  as  a  scheduled  splash.  Otherwise, 
it  is  recorded  as  a  random  abort. 

Subroutine  BABORT  is  illustrated  in  figure  9. 
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Fiy.  9.  Subroutine  BABORT 
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SUBROUTINE  IlllAMAGIi 


PURPOSE. :  To  calculate  burst  damage  to  a  target  or  a  col¬ 

location  group  of  targets. 

ENTRY  POINTS:  BDAMACE 

E0RMA1,  PARAMETERS:  None 

COMMON  BLOCKS:  ACZSUM,  ARE.ADAT ,  ASMS,  BOMBER,  BRKPNT,  CAPACITY, 

DAMAGE,  I- DATA,  C ROUND,  IPRINT,  KEYWORDS,  KEYWROS , 
MISS1.E,  NAMES,  NWORDOUT,  WARHEAD,  ZONES,  19501 

SUBROmUNHS  CALI, ED:  HXPI- ,  HIST,  IIISTWIUT,  lElKD,  [GET,  I  PUT,  RANI',* 

VI. RAD 

CALLED  BY:  I.A'ITR  IT,  TERMBMO 


Method 

Subroutine  IIISTWIUT  is  called  to  write  out  the  1 1 1  STOUT  block  for  tin; 
previous  event,  since  BDAMAGE  is  called  directly,  and  the  normal  call 
on  IIISTWIUT  by  DONEXT  is  bypassed.  The  number  and  yield  of  the  weapon 
are  cumulated  by  delivery  vehicle  class  and  type.  The  collocation  flag 
Kt.Oh  is  initialized  to  zero  (off).  Y23  is  computed  by  raising  the  yield 
for  this  weapon  type  YIELD(NIVTYP)  to  the  2/3  power.  The  weapon-target 
coordinates  IWTX,  IWTY  arc  found  by  changing  the  sign  of  1AGX  and  IAGY . 

In  statement  5,  function  I GET  is  used  with  the  variable  I  KEEP  of  the 
STATUS  array  to  determine  whether  the  target  is  dynamic.  If  not,  this 
is  rec. rded  and  control  transferred  to  statement  12.  Otherwise  the 
status  of  the  target  TSTAT  is  retrieved  through  a  call  to  1  Cll;  I  and 
stored  in  1ST AT.  If  ISTAT  is  zero,  the  target  is  already  dead.  This 
is  recorded  and  control  transferred  to  statement  12.  Otherwise,  the 
square  (in  nautical  miles)  of  the  weapon-target  radius  WTR2  is  computed 
by  squaring  the  distance  coordinates  and  multiplying  by  a  conversion 
factor.  If  WTR2  is  greater  than  or  equal  to  WTR21.WT,  the  maximum 
range  of  a  onc-mcgaton  weapon,  multiplied  by  Y23,  the  target  is  too 
distant.  This  is  recorded  and  control  transferred  to  statement  12. 

If  the  target  j.s  within  the  prescribed  distance,  the  target  vulnerability 
'I'VUEs  is  retrieved  through  a  call  to  ICE  I  and  stored  in  IV'IIEN.  The 
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hardness  value  for  this  vulnerability  VULN(IV'JLN)  is  stored  in  NVN . 

Function  VLRAD  is  culled  to  compute  the  weapon  radius  against  this  target, 
which  is  stored  in  WU.  The  survival  probability  SSKP  is  computed.  If 
SSKP  is  less  than  or  equal  to  a  random  number  generated  by  subroutine 
RANF,  the  target  survives.  This  is  recorded  and  control  transferred  to 
statement  12. 

Otherwise,  the  status  of  the  target  is  set  to  "dead"  through  a  call  on 
I  PUT  and  this  is  recorded.  Through  calls  on  IGET,  the  area  defense  zone 
and  area  defense  component  index  of  the  target  are  retrieved  from  the 
STATUS  array  and  stored  on  DF.FZONH  and  DHFCMP. 

In  either  case,  the  target  class  is  found.  If  the  class  is  not  4,  S,  or 
14  control  goes  to  statement  12.  If  the  class  is  14  (ABMDEF) ,  control  goes 
to  statement  118.  Otherwise,  JJ  is  set  to  the  second  target  type  of 
class  IC,  and  KK  is  set  to  the  first  target  type  of  class  IC+l.  TT  is 
set  to  one.  The  targe*-  index  INTAP  is  compared  to  each  INI)BEGI'Y(I  I)  , 
the  beginning  indices  ol  the  tyncs  from  JJ  through  KK .  If  INTAR  is  less 
than  INDBEGTY ( 1 1 ) ,  IT  is  incremented  by  one,  and  the  test  is  made  again. 

If  II  exceeds  KK,  the  breakpoint  table  is  in  error  and  an  error  message 
is  printed.  If  on  the  other  hand  INTAR  is  greater  than  or  equal  to 
INDBEGTY(IT) ,  the  target  type  has  been  found  and  IT  ARTY  PE  is  set  to  the 
current  value  of  IT. 

When  either  the  target  type  is  found  or  IT  exceeds  KK,  the  zone  for  the 
target  is  rctrieveu  through  the  use  of  JGi-T  and  stored  in  ZONE.  IC  is 
tested. 

If  IC  is  four,  the  target  is  a  command  and  control  site  and  the  command/ 
control  potential  fer  the  current  zone  ZCCPOT(IZONB)  is  decreased  by 
CCPOT(ITARTYPE) ,  the  command/control  potential  of  this  site.  The  zone, 
the  zone  command/ control  potential,  the  target  type,  and  the  site  command/ 
control  potential  are  then  printed.  If  IC  is  five,  the  target  is  a  bomber 
interceptor  base,  and  the  defensive  potential  fo  the  current  zone 
Zl)EFPOT(IZONE)  is  decreased  by  DEFPOT(ITARTYPE) ,  the  defensive  potential 
of  the  base.  In  cither  case  control  then  goes  to  statement  12. 

In  statement  118,  if  01. CMP  is  three  or  less,  the  target  is  a  long-range 
radar.  I"  this  case,  the  10VERLAP  array  is  searched  by  unpacking  KTAR 
in  each  word  of  the  array  and  comparing  it  to  INTAR,  the  current  target 
index.  When  a  match  is  tound  in  one  of  the  words,  the  rest  of  the  word, 
containing  the  area  defense  zones  over  which  the  radar  is  effective,  is 
unpacked.  For  each  of  these  zones  NLRR,  the  number  of  long-range  radars 
covering  an  area  defense  zone,  is  decreased  by  one.  Tf  NLRR  becomes  zero 
in  any  zone,  the  loss  of  radar  coverage  in  that  zone  is  recorded. 

If  EliP  CMP  is  four,  the  target  is  an  ABM  base  and  AI  NT  (HIT-ZONE,  DHFCMP), 
the  number  of  area  interceptors  at  the  base,  is  set  to  zero.  A  check 
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is  made  to  see  if  this  reduction  of  interceptors  has  exhausted  the 
entire  interceptor  supply  in  the  zone.  If  so,  this  is  recorded. 

In  statement  12,  TARDEPHI,  the  high-al titude^ defense  state  for  this 
target,  is  retrieved  through  the  use  of  I GET  and  stored  in  KDEF. 

TARDOFLO,  the  low-altitude  defense  state  for  this  target,  is  also 
retrieved.  If  LDEF  is  positive,  it  is  also  reduced  by  one.  The  now 
values  are  set  through  calls  on  subroutine  IPUT. 

KCOL,  the  collocation  flag,  is  tested.  If  it  is  zero,  the  current  target 
is  the  primary  target  of  the  weapon.  1COL,  which  indicates  if  a  target 
is  collocated,  is  retrieved  through  the  use  of  I GET  and  stored  in  KOLOC. 

If  KOLOC  is  zefo,  the  target  is  not  collocated,  and  the  subroutine  exits. 

If  KOLOC  is  one,  INTAR  is  saved  in  INTO  and  KCOL  is  set  to  one  to  indicate 
that  the  assessment  of  a  collocated  group  is  beginning.  Function  IFTNl)  is 
called  to  get  the  index  in  array  COLAR  of  the  information  for  the  current 
target  anu  to  store  the  index  in  KIND.  The  beginning  of  the  collocation 
assessment  is  recorded  through  a  call  to  subroutine  HIST.  If  KIND  is 
zero,  the  index  of  the  target  supposed  to  be  collocated  cannot  be  found 
in  COLAR.  This  is  recorded,  and  the  subroutine  exits. 

If  KCOL  is  one  or  if  KIND  is  nonzero,  KEYNTA,.  the  number*  of  targets  in 
the  collocated  group,  is  retrieved  through  the  use  of  IGF.T  and  stored  in 
NTA.  If  ,'iTA  is  nonzero,  the  next  target  in  the  collocated  group  is  located 
NTA  words  in  COLAR  before  the  current  target,'  so  KIND  is  decreased  by 
NTA.  NWORDOUT,  the  number  of  words  of  the  1 1 1 STOUT  block  to:  bo  used  for 
this  event,  is  set  to  19+NTA.  Regardless  of  the  value  of  NTA,  KIND  is 
increased  by  one  to  point  to  the  next  collocated  target. 

If  INTAR  equals  INTO,  the  primary  target  of  the  weapon  has  been  reached, 
and  the  collocation  assessment  is  complete.  The  subroutine  then  exits. 

If  they  are  not  equal,  KEYDX  and  KOYDY,  the  components  of  the  distance 
from  the  current  target  to  the  next  one,  are  retrieved  through  the  use  of 
IGET  and  stored,  respectively,  in  IDX  and  IDY.  IWTX  and  IKTY  are 
respectively  increased  by  IDX  and  IDY  to  give  the  coordinates  of  the 
next  target.  Control  is  then  transferred  to  statement  5  above. 

Subroutine  BDAMAGE  is  illustrated  in  figure  10. 
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SUBROUTINE  BLAUN 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS. 
SUBROUTINES  CALLER : 
CALLED  BY: 


To  simulate  the  attempted  launch  of  a  bomber  or 
tanker . 

BLAUN 

None 

BOMBER,  DATTA,  EDATA,  KEYWORDS,  TANKER,  TIME,  19501 
HIST,  I GET,  LOGP,*  NRXTHVNT,  PLANTS,  RANF* 

DON EXT 


Method 


The  launch  base  index  INDP(IHT)  is  retrieved 
stored  in  INBASE.  The  altitude  index  is  set 
The  execution  of  BLAUN  is  recorded  through  a 
status  ISTAT  of  the  launch  base  is  retrieved 


from  the  History  Table  and 
equal  to  one  (high  altitude) . 
call  to  subroutine  HIST.  The 
by  use  of  function  IGHT. 


If  the  base  is  dead,  this  is  recorded;  no  launch  occurs,  and  the  subroutine 
exits. 


If  the  base  is  alive,  the  vehicle  class  ICLASS  is  tested  to  determine  the 
vehicle  type.  If  ICLASS  is  2,  the  vehicle  is  a  bomber.  If  ICLASS  is  3, 
the  vehicle  is  a  tanker.  In  either  case,  the  probability  of  launch  abort 
PLABT(ITYPE)  or  TPLABT(ITYPE) ,  delay  time  TMDEL(ITYPE)  or  TTMDEL(ITYPE) , 
and  abort  rate  ABRATE (ITYPE)  or  TABRATH ( I  TYPE)  arc  stored  respectively  in 
PLA,  TM,  and  ABR.  PLA  is  compared  to  a  random  number  generated  by 
subroutine  RANF  to  determine  if  abort  occurs. 

If  the  vehicle  aborts,  the  vehicle  delay  time  TDEL  is  computed  by  multi¬ 
plying  the  delay  time  for  this  type  of  vehicle  TM  by  the  log  of  a  random 
number.  The  launch  abort  ’ s  recorded.  A  new  launch  is  planted  at  a  time 
equal  to  the  current  game  time  TIME  plus  the  delay  time,  and  the  subroutine 
exits . 


If  tli  vehicle  is  launched  successfully,  the  inflight  abort  time  TABOllT 
is  computed  by  modifying  the  abort  rate  for  this  type  of  vehicle  A HR  by 
a  random  factor.  The  successful  launch  is  recorded.  Subroutine  NUXTliVNT 
is  called  to  plant  the  next  bomber  event,  and  the  subroutine  exits. 

Subroutine  BLAUM  is  illustrated  in  figure  11. 
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iil-ru'.i.  ino  IU.MJN 


SUBROUTINE  BMDSTAT 


PURPOSE. : 


ENTRY  POINTS: 


To  summarize  the  number  of  remaining  area  and 
terminal  interceptors. 

BMDSTAT 


FORMAL  PARAMETERS:  None 

COMMON  BLOCKS :  ABMBATA,  AREADAT,  BRKPNT,  KEYWORDS,  NAMES, 

TBMDATA,  19501 


SUBROUTINES  CALLED:  None 


CALLED  BY: 


SIMULATE,  ENDGAME 


Method 


A  printout  is  made  of  the  number  of  area  interceptors  for  each  side  that 
are  present  in  each  zone  and  of  the  number  of  terminal  interceptors 
present  at  each  target  which  is  protected  by  a  Jocal  ballistic  missile 
defense . 

Subroutine  BMDSTAT  is  illustrated  in  figure  12. 
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SUBROUT INF  BOMBF 


PURPOSE ; 

To  store  in  the  1IISTOUT  block  the 
Table  arid  Weapon  Table  lines  of  a 

unused 

killed 

History 

bomber. 

ENTRY  POINTS: 

BOMBF 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

EDATA,  1IISTOUT,  NWORDOUT ,  INBOMBF 

SUBROUTINES  CALLED: 

MINOF * 

CALLED  BY: 

hist 

Method 


If  the  variable  IN BOMBF  has  been  set  equal  to  zero  by  card  input, 

NWORDOUT  (the  number  of  words  of  the  I1IST0UT  block  to  be  output)  is 
set  to  25,  and  the  subroutine  exits.  Otherwise,  the  number  of  lines 
remaining  in  the  History  Table,  NMHT,  is  calculated  by  subtracting  NALT, 
the  number  of  alternate  events  for  this  vehicle,  from  Jill-' .  The  unused 
History  Table  elements;  TINC(MHT-I+1)  time  increments;  INl)P(MHT-I  +  l) 
places;  and  INDE(MHT-I+1)  event  types;  are  stored  respectively  in 
TINCN(I),  INBPN(I),  and  INDEN(I). 

The  type  designation  for  a  maximum  of  six  unused  weapons  (weapons  not 
delivered  prior  to  bomber  kill)  arc  also  stored.  The  system  function 
MI. NOT  is  used  to  compare  the  number  six  with  the  number  of  unused 
weapons  and  return  the  minimum  value  J.  The  data  for  the  unused  weapons, 
up  to  six,  in  the  Weapon  Table  IWTYP(.JWT-I  +  1)  are  then  stored  in 
NWTYPFN (I ) .  NWORDOUT  is  set  to  152  and  the  subroutine  exits. 

Subroutine  BOMBF  is  illustrated  in  figure  13. 


‘System  Library  Function 
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IN  DOM  HI' 


NIVOUDOtJT 


HI  TURN 


8 


SllimOIITlN!:  BTINPUIN 


PURPOSE: 


To  print  our  the  contents  of  the  INDATA  array  for 
a  number  or  tanker  sor'd e. 


l-.NTRY  POINTS : 
rORMAl,  PA  KAMI 'THUS : 
COMMON  BLOCKS : 
SUliKOUT  I  MILS  CAM  ]-D: 

calli-d  by: 


in  1 NPU  I  N 
None 

HDATA,  IPSWICH 
None 

si.miii.ati: 


Method 


This  subroutine  is  called  by  program  SI  MU LATH  only  if  IPSW2  (for  bombers ) 
or  IPSW3  (for  tankers)  has  been  set  equal  to  one  by  card  input.  The 
first  26  words  of  [NPATA  are  printed;  then  the  time,  place,  and  event 
typos  for  the  events  listed  in  the  History  Table  arc  printed  out  iu 
groups  of  10.  If  a  bomber  and  1PSW6  have  been  sc1’  to  one,  the  warhead 
types  and  desired  coordinates  are  also  printed  out. 

Subroutine  BTINPUIN  is  illustrated  in  figure  14. 
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SUBROUTINE  CHAN GAI.T 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS; 
SUBROUTINES  CALLED: 
CALLED  DY: 


To  change  a  bomber's  altitude  index. 

CHANGALT 

None 

EDATA 

1 1 1ST,  NKXTEVNT 
DONE XT 


Method 


The  execution  of  subroutine  CHANGALT  is  recorded  through  a  call  to. 
subroutine  HIST. 

The  altitude  index  IALT  is  set  to  zero  if  it  was  one,  or  to  one  if  it 
was  zero.  (Zero  is  low  altitude,  one  is  high  altitude.) 

Subroutine  NEXTKVNT  is  called  to  plant  the  next  event  for  the  bomber. 

Subroutine  CHANGALT  is  illustrated  in  figure  15. 
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Fig.  15.  Subroutine  CMANGALT 


SUBROUTINE  CLAUN 


PURPOSE : 

To  test  if  a  launched  missile  successfully 
completes  powered  flight,  and  to  plant  an 
Ballistic  Missile  Defense  Attrition  event 
each  MIRV  for  the  end  of  its  flight  time. 

Area 

for 

ENTRY  POINTS: 

CLAUN 

FORMAL  PARAMETERS : 

None 

COMMON  BLOCKS: 

ABMDATA ,  EDATA,  KEYWORDS,  MISSLH,  PAYLOAD, 
19501 

TIME 

SUBROUTINES  CALLED: 

HIST,  I GET ,  IPUT,  PLANTS,  MUNPK 

CALLED  BY: 

DONEXT 

Method 


The  launch  base  is  restored  to  its  initial  hardness  by  a  call  to  IPUT; 
the  base  status  is  then  retrieved  and  tested.  If  the  launch  base  is  dead, 
the  destruction  of  the  missile  during  launch  phase  is  recorded  and  the 
subroutine  exits. 

the  launch  base  is  still  alive,  the  payload  data  are  retrieved  and, 
if  the  payload  contains  several  MIRVs,  that  fact  is  recorded.  The  time 
over  target,  the  UGZ,  and  the  decoy  data  for  each  warhead  are  used  to 
plant  AREABMD  events. 

Subroutine  CLAUN  is  illustrated  in  figure  16. 


85 


SUBROUTINE  DLAUN 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  launch  or  terminate  decoys  from  a  bomber,  at 
high  or  low  altitude. 

DLAUN 

.None 

ODATA,  TIME,  ZONES 
HIST,  NEXTEVNT 
DON EXT 


Method 


The  number  of  penetrators  in  the  zone  is  changed  by  the  amount  specified 
in  tl.o  "Place"  portion  of  the  bomber  History  Table.  If  the  change  is 
negative,  the  number  of  high-altitude  decoys  accompanying  the  bomber  is 
decreased  accordingly.  If  the  change  is  positive,  either  the  high-altitude 
or  the  low-altitude  decoys  are  incremented,  depending  upon  the  current 
bomber  altitude.  The  execution  of  DLAUN  is  recorded  by  calls  on 
subroutine  HIST.  Subroutine  NEXTEVNT  is  then  called. 

Subroutine  DLAUN  is  illustrated  in  figure  17. 


87 


Fig.  17.  Subroutine  DLAIJN 
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SUBROUTINE  DON  Li  XT 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


To  determine  the  next  event  to  bo  executed, 
cither  from  internal  memory  or  from  an  external 
spill  file,  and  to  call  t lie  appropriate  event 
subroutine.  Entry  point  EVSP1I.L  empties  the 
list  memory  onto  an  external  spill  file  when 
list  memory  is  filled.* 

DON  EXT,  liVoPi  LL 

None 


COMMON  BLOCKS: 


CONST,  liSTOR,  EVENT ,  EV1NDX,  1TP,  MONiJAT, 
MYIDENT,  NliVTOT,  TIME,  TWORI1,  19501 


SUBROUTINES  CALLED:  AA'ITRIT,  ALAUN,  AREABMD ,  BABORT,  BDAMAGH ,  5  LA  UN , 

. . ~ "  "  Cl  IANGALT,  CLAUN,  DLAIJN ,  ENDGAME,  E  RARE  A,  ESEC, 

EVUNPK,  III3TWRIT,  LATTRIT,  LRAREA,  MLAUN, 
MONPRIN,  NAVATR ,  NAVCAL,  RDARRAY ,  RDWORD , 

ROCHEK,  RECOVERY,  REFUEL,  RET LM,  SETRF.AD, 
SETWRITE,  SQUEEZE,  SSTAT,  TERMBMD ,  TERNTTAPE, 
UPDIR,  WRARRAY,  IVRWORI1,  ZABORT 

CALLED  BY:  SIMULATE 


Method 


Subroutine  DONEXT  controls  the  program  and  never  exits  once  it  is  called. 

When  executed,  DONEXT  determines  if  the  next  event  comes  from  list  memory 
or  from  one  of  the  event  tapes.  If  the  next  event  to  be  executed  is  in 
list  memory,  the  event  is  transferred  from  list  memory  to  the  array  1NUATP. 
The  memory  cells  used  by  the  event  are  returned  to  available  storage;  the 
data  in  INDATP  arc  unpacked  and  placed  in  the  array  INDATA.  The  appropriate 
event  subroutine  is  then  called.  After  the  event  routine  has  been  executed, 
the  results  are  written  on  the  output  tape  by  subroutine  1USTOUT.  DONEXT 
then  goes  back  to  the  beginning  to  find  the  next  event.  If  the  next  event 
is  on  tape,  the  event  data  arc  read  directly  into  INDATP  and  executed  as 
previously  described. 


*For  discussion  of  list  memory,  see  Concept  of  Operation,  this  chapter. 
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Entry  EVSPILL 


The  EVSPILL  entry  point  is  used,  when  list  memory  is  full,  to  merge  memory 
to  tape.  The  array  ITOGO  contains  the  viumber  of  words  written  on  each  of 
the  event  spill  tapes.  Upon  entry,  EVSPILL  selects  the  tape  with  the 
minimum  number  of  words  and  uses  this  as  an  input  tape  and  the  first 
empty  tape  as  the  output  tape.  The  merge  switch  MERGSW  is  set  negative, 
and  control  is  transferred  to  the  beginning  of  DONF.XT,  where  an  event  is 
selected  from  LIST  memory  or  the  selected  input  tape  and  transferred  to 
INDATP,  When  the  merge  switch  is  negative,  the  selected  event  will  be 
written  on  the  output  tape  instead  of  executed.  When  the  merge  is  completed, 
the  output  tape  is  put  into  read  status,  the  number  of  words  on  the  input 
tape  is  set  equal  to  zero,  and  the  arrays  that  were  saved  are  restored. 

Subroutine  DONEXT  is  illustrated  in  figure  18. 
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SUBROUTINE  ENDGAME 


PURPOSE : 


ENTRY  POINTS. 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 


Method 

Summary  information  is  printed  out  either  directly  or  by  calls  on 
appropriate  subroutines.  The  word  4HLAST  is  written  on  the  History  tape 
to  indicate  to  the  Data  Output  subsystem  that  there  are  no  more  events. 

The  recovery  arrays  are  then  written  out.  After  terminating  the  tape 
with  TERMTAPE,  which  rewinds  the  tape,  the  tape  is  read  down  to  the  end  of 
file,  and  the  breakpoint  tables  and  yield  tables  are  written  on  the  tape 
without  the  use  of  the  filehandler.  The  subroutine  then  indicates  program 
termination  on  the  typewriter  and  stops. 

Subroutine  ENDGAME  is  illustrated  in  figure  19. 


To  perform  various  summary  prints  and  prepare  for 
termination  of  the  program. 

ENDGAME 

None 

BRKPNT ,  ITP ,  MYIDENT,  NAMES,  RECOV,  TIME,  TWORD, 
WARHEAD 

AGZSUM,  BMDSTAT,  PAGESKP ,  SETREAD,  SKIPFILE, 
SSTAT,  STATSUM ,  TERMTAPE,  WRARRAY,  WRWORD 

DONE XT 
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SUBROUTINE  ERAREA 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  simulate  the  arrival  of  a  full  tanker  at  a 
refueling  area. 

ERAREA 

None 

DATTA,  ED  AT  A,  EPSN,  REFUEL.,  TIME 

HIST,  PLANTS 

DONEXT 


Method 


The  execution  of  ERAREA  is  recorded  through  a  call  to  subroutine  HIST, 

The  index  of  the  refueling  area  INDRA  is  retrieved  from  the  tanker  History 
Table  and  the  amount  of  fuel  in  the  area  NFTAHKCINDRA)  is  increased  by 
60  units. 

The  History  Table  pointer  IHT  is  advanced  to  the  next  event,  and  the 
tanker  abort  time  TAEQRT  is  examined  to  see  if  it  is  earlier  than  FUTIME, 
the  time  of  the  next  tanker  History  Table  event.  A  tanker  abort  is 
interpreted  as  an  early  departure  from  the  refueling  area.  If  an  abort 
occurs,  FUTIME  is  sc*  to  the  abort  time. 

In  either  case,  a  Leave  Refuel  Area  event  is  planted  for  the  tanker,  and 
the  subroutine  exits. 

Subroutine  ERAREA  is  illustrated  in  figure  20. 
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g.  20.  Subroutine  ERAREA 


SUBROUTINE  ERROL 


PURPOSE: 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  print  an  error  message  for  subroutine  PLANT 
or  subroutine  UNSQUEEZ  and  call  subroutine 
ZABORT  to  terminate  the  game. 

ERROL 

ITYP  -  Error  type 

None 

ZABORT 

PLANT,  UNSQUEEZ 


Method 


When  called,  this  subroutine  prints  the  error  message  PLANT  OR  UNSQUEEZ 
ERRORxx,  where  xx  indicates  one  of  the  error  types  described  below. 
ERROL  then  calls  subroutine  ZABORT  to  terminate  the  run.  Subroutine 
ERROL  is  illustrated  in  figure  21. 


ERROR 

TYPE 

DESCRIPTION 

10, 

11 

No  list  memory  available  after  EVSPILL. 
Called  by  subroutine  PLANT. 

20 

No  list  memory  available  after  EVSPILL. 
Called  by  subroutine  UNSQUEEZ. 

21 

Event  execution  time  earlier  than  game 
time.  Called  by  subroutine  PLANT. 
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SUBROUTINE  ESEC 


PURPOSE : 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 


To  adjust,  the  number  of  penetrators  in  the  old  and 
new  zones  as  a  bomber  enters  a  zone;  if  this  is  a 
depenetration  from  enemy  territory,  to  record  this 
and  to  determine  the  proper  recovery  base;  and  to 
plant  the  next  event  for  the  bomber. 

ESEC 

None 


COMMON  BLOCKS: 


EDATA,  EPSN ,  HISREC,  HI  STOUT,  KEYWORDS,  RECOV, 
TIME,  ZONES,  19501 


SUBROUTINES  CALLED:  HIST,  NEXTEVNT,  PLANTS 

CALLED  BY:  DONEXT 


Method 


The  execution  of  ESEC  is  recorded  through  a  call  to  subroutine  HIST. 

If  the  current  zone  INZONE  is  not  the  bomber's  launch  zone,  the  number 
of  penetrators  in  that  zone  NPENZ( INZONE)  is  decreased  by  one  plus 
the  number  of  decoys  accompanying  the  bomber.  If  it  is  the  bomber 
launch  zone,  the  entry  of  enemy  territory  is  recorded.  In  any  case, 
the  new  zone  INDP(IHT)  is  retrieved  from  the  History  Table  and  the 
zone  entry  recorded. 

The  number  of  penetrators  in  the  new  zone  is  increased  by  one  for  the 
bomber  and  by  the  number  of  its  accompanying  decoys,  if  any.  If  the 
zone  crossing  is  internal,  the  History  tape  record  is  suppressed. 

If  the  bomber  is  leaving  enemy  territory,  the  depenetration  corridor  is 
determined  and  the  depenetration  recorded.  The  furthest  live  base  which 
is  not  saturated  is  then  selected  for  recovery,  if  one  is  available. 

If  there  is  no  such  base  available,  either  a  saturated  base  is  selected 
or  the  bomber  is  aborted. 

Subroutine  ESEC  is  illustrated  in  figure  22. 
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SUBROUTINE  EVPACK 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  pack  the  array  OUTDATA  into  the  array  OUTDATAP. 

EVPACK 

None 

EDATA,  EPACK,  ESTOR,  FORMAT,  MONDAT 

PROUTDAT,  UN P FOR,  2ABORT 

PLANT 


Method 


A  word  in  the  array  JFORMAT  specifies  how  to  transfer  a  word  or  array  from 
IOUTD  (equivalent  to  OUTDATA)  to  IOUTDP  (equivalent  to  OUTDATAP).  If  the 
JFORMAT  word  has  the  value  zero,  the  IOUTD  word  need  not  be  transferred. 

If  it  has  the  value  one,  the  IOUTD  word  is  transferred  directly.  If  it 
has  a  value  greater  than  one,  an  array  is  to  be  transferred  and  the  last 
12  bits  specify  the  dimension  of  the  array.  The  remaining  bits  give  the 
index  to  the  array  IOUTD  which  contains  the  number  of  words  in  the 
array  to  be  transferred.  To  transfer  all  the  variables  in  IOUTD  requires 
the  specification  of  a  number  of  JFORMAT  words. 

Subroutine  EVPACK  first  calls  subroutine  UNPFOR,  which  places  the  set 
of  indices  to  the  array  JFORMAT  into  the  array  INDFORMO.  The  words 
in  INDFORMO  are  then  looked  at  one  at  a  time,  the  corresponding 
JFORMAT  determined,  and  data  transferred  to  OUTDATAP  accordingly. 

After  transferring  the  data,  a  check  is  made,  and  if  more  than  the  allowed 
number  have  been  transferred,  the  run  aborts. 

If  MONSW  is  set  equal  to  one  when  EVPACK  is  called,  the  arrays  OUTDATA  and 
OUTDATAP  are  printed  out . 

Subroutine  EVPACK  is  illustrated  in  figure  23. 
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SUBROUTINE  EVUNPK 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  transfer  the  array  INDATAP  to  the  array  INDATA 
for  use  by  an  event  subroutine. 

EVUNPK 

None 

ODATA,  EPACK,  ESTOR,  FORMAT,  MON DAT 
PRINDAT,  UNPFOR,  ZABORT 
DONE XT 


Method 


The  operation  of  EVUNPK  is  very  similar  to  that  of  EVPACK.  A  call  to 
UNPFOR  puts  the  indices  to  the  array  JFORMAT  in  array  INDFORMD.  These 
format  specifications  are  then  used  to  transfer  single  words  and  arrays 
from  INDATAP  to  INDATA. 

If  more  data  are  transferred  than  INDATA  is  dimensioned  for,  the  run 
aborts . 

If  MONSW  is  equal  to  one  when  EVUNPK  is  called,  PRINDAT  is  called  to 
print  out  INDATA  and  INDATAP. 

Subroutine  EVUNPK  is  illustrated  in  figure  24. 
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SUBROUTINE  HIST 


PURPOSE: 

ENTRY  POINTS: 


To  record  the  outcome  of  each  event  on  the  History 
tape.  Prints  of  the  occurrences  are  optional. 

HIST 


FORMAL  PARAMETERS:  III  -  Event  number 

Jll  -  Message  number  for  the  event 

COMMON  BLOCKS:  AREADAT,  BOMBER,  BRKPNT,  DEFZON1: ,  EDATA.  GROUND. 

HISROC,  11 1 ST A 1 ,  HIST ABM,  HI STOUT,  HI STREP,  IPRINT, 
KEYWORDS,  MISSLE ,  NAMES,  NWORDOUT,  TIME,  TRYL, 
WARHEAD 


SUBROUTINES  CALLED:  BOMBF 

CALLED  BY:  AATTRIT,  ALAUN,  AREABMD,  BABORT,  B DAMAGE,  BLAUNI, 

CHANGALT,  CLAUN,  DLAUN,  ERAREA,  ESEC,  LATTRIT, 
LRAREA,  MLAUN,  RE CHE K ,  RECOVERY,  REFUEL,  TERMBMD, 
TRYLAUN 


Method 


Based  on  the  value  of  III,  the  event  number,  control  is  transferred  to  a 
statement  number  which  has  been  assigned  a  number  equal  to  10  times  the 
value  of  Ill.  Each  of  these  statements  is  also  a  computed  GO  TO  statement. 

Based  on  the  value  of  Jll,  the  message  number,  control  is  transferred  to 
the  appropriate  message  statement  corresponding  to  the  message  of  this 
number  for  the  current  event.  At  each  message  statement,  the  appropriate 
/HISTO'JT/  and  other  common  block  items  for  this  event  and  message  are  set, 
a  message  may  be  printed,  and  the  subroutine  exits.  Optional  prints  are 
controlled  by  common  block  /IPRINT/. 

Subroutine  HIST  is  illustrated' in  figure  25. 
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Fig.  25.  Subroutine  HIST 
(Sheet  1  of  13) 


Fig.  25.  (cont.) 

(Sheet  2  of  13) 
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Fig.  25.  (cont.) 

(Sheet  6  of  13) 


Fig.  25.  (cont.) 

(Sheet  7  of  13) 
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SUBROUTINE  HISTWRIT 


PURPOSE: 

To  write 
History 

ENTRY  POINTS: 

HISTWRIT 

PORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

IIISTOUT, 

SUBROUTINES  CALLED: 

WRARRAY , 

CALLED  BY: 

AREABMD, 

out  the  /III STOUT/  block  onto  the 
ape. 

1TP ,  NWORDOUT,  TWORI),  TIME 
WRWORIJ 

BDAMAGE,  DONE  XT,  LRAREA 


Method 


IIP,  the  current  tape  unit,  is  set  to  indicate  the  History  tape.  ITWORD 
is  set  to  NWORDOUT.  the  number  of  words  of  the  /IIISTOUT/  block  to  be 
written  out.  Subroutine  WRWORD  is  called  to  write  ITWORD.  If  the 
vehicle  is  a  bomber  or  tanker,  PUT I Ml:  is  written  in  1 1 1 STOUT ( 4 ) .  Sub¬ 
routine  WRARRAY  is  called  to  write  NWORDOUT  words  of  the  /IIISTOUT/  block. 

The  first  NWORDOUT  words  of  the  /IIISTOUT/  block  arc  then  set  to  t.cro,  and 
the  subroutine  exits. 

Subroutine  HISTWRIT  is  illustrated  in  fijjure  26. 
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FUNCTION  IFIND 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  search  array  COLAR  to  find  the  location  of 
the  current  target. 

IFIND 

IX,  the  target  index 

NGOL,  19501 

None 

AREABMD,  BDAMAGE,  NAVCAL 


Method 

The  target  index  is  compared  with  the  leftmost  14  bits  of  each  element 
in  the  array  COLAR.  If  a  match  is  found,  the  corresponding  index  to 
the  array  is  returned.  If  not,  a  zero  is  returned. 

Function  IFIND  is  illustrated  in  figure  27. 


Put  Target  Index 
In  Leftmost  14 
Bits  Of  INT 


Pig.  27.  Function  I  FIND 
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SUBROUTINE  INITEV 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  initialize  elements  in  common  blocks  /CONST/, 
/ESTOR/,  and  /TIME/. 

INITEV 

ITAPES  -  Array  which  specifies  the  tapes  available 
for  spilling 

CONST,  ESTOR,  TIME 

None 

SIMULATE 


Method 

Various  constants  arc  set.  TAPOT(I),  the  earliest  time  on  a  spill  tape, 
is  set  equal  to  a  large  number  for  all  possible  tapes.  lTOGO(I),  the 
number  of  words  on  a  spill  tape,  is  set  equal  to  zero  for  all  active 
tapes  and  -1  for  inactive  tapes. 

Subroutine  INITEV  is  illustrated  in  figure  28. 
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28.  Subroutine  INITF.V 


SUBROUTINE  INITLIST 


t-uRPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  initialize  list  memory. 

INITLIST 

None 

ESTOR,  EVINDX,  I.ISTMEM,  MONDAT,  19S01 

ADDMEM 

SIMULATE 


Method 


MONSW  and  IAVAIL  are  set  equal  to  zero.  INITLIST  initializes  list 
memory  by  adding  the  first  3,000  words  of  the  array  IARR  to  list 
memory  by  a  call  on  ADDMEM.  In  addition,  it  initializes  the  arrays 
EVTIME  and  1NDEVB. 

Subroutine  INITLIST  is  illustrated  in  figure  29. 
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SUBROUTINE  LATTRIT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 

CALLED  BY: 


To  simulate  u  bomber  penetrating  local  defenses. 

LATTR1T 

None 

ASMS',  BOMBER,  EDATA,  GROUND,  KEYWORDS,  LATTRIT, 

TIME,  WARHEAD,  ZONES,  IDS 01 

B DAMAGE ,  EXPF,*  HIST,  IGET,  NEXTEVNT,  PLANTS,  RANF, * 
RNDEV 

DONE XT 


Method 


The  execution  of  LATTRIT  is  recorded  through  a  call  to  subroutine  HIST. 

IGO,  which  indicates  if  there  is  to  be  a  follow-on  event,  is  set  to  zero. 

The  target  index  INDP(IHT)  is  retrieved  from  the  History  Table  and  stored 
in  INTAR. 

If  the  weapon  is  a  naval  attack  weapon,  a  separate  test  is  made  to  determine 
whether  the  weapon  penetrates  and,  if  it  does,  to  determine  PKNAV,  the 
penetration  probability  being  stored  in  INDATA.  For  non-naval  attack 
delivery  vehicles,  TALT,  the  vehicle  altitude  index,  is  tested.  If  the 
vehicle  is  high,  the  target's  number  of  high-altitude  defense  batteries 
is  retrieved,  multiplied  by  DEFHI  the  effectiveness  factor  for  high- 
altitude  defenders,  and  stored  in  DEF.  If  the  vehicle  is  low,  TARDF.FL0, 
the  index  to  the  target's  number  of  low-altitude  defense  batteries,  is 
retrieved,  multiplied  by  DF.FLO  the  effectiveness  factor  for  low-altitude 
defenders,  and  stored  in  DEF.  The  number  of  accompanying  decoys  at  the 
relevant  altitude  is  stored  in  NDECOYS. 

If  DEF  is  nonzero,  the  target  is  defended.  The  survival  probability  SP 
is  computed  as  the  exponential  function  of  -DEF/ (1+ . 5*NDEC0YS) .  SP  is 
compared  to  a  random  number  generated  by  library  subroutine  RANF  to 
determine  if  the  vehicle  survives. 

If  the  vehicle  survives  or  if  DF.F  is  zero,  the  type  of  vehicle  undergoing 
attrition  is  found  by  testing  the  class  indicator.  If  ICLASS  is  greater 
than  two,  the  vehicle  is  an  air-to-surface  missile  (ASM).  Survival  of  the 
ASM  is  recorded. 
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If  ICLASS  equals  two,  the  vehicle  is  a  bomber.  All  low-altitude  decoys 
are  considered  downed,  so  that  the  number  of  penetrators  in  the  current 
zone  NPENZ(INZONE)  is  decreased  by  NDLO,  which  is  then  set  to  zero. 

Since  the  bomber  survived,  IGO  is  set  equal  to  one. 

Whether  the  vehicle  is  a  bomber  or  an  ASM,  the  weapon  type  IWTYP(JWT)  is 
retrieved  from  the  Weapon  Table  and  stored  in  NWTYP.  The  dud  probability 
of  this  type  PDUD(NWTYP)  is  compared  to  a  random  number  to  determine  if 
the  weapon  is  a  dud.  If  so,  this  is  recorded,  and  the  subroutine  exits. 

If  the  weapon  detonates,  the  class  indicator  ICLASS  is  tested.  If 
ICLASS  is  greater  than  two,  the  vehicle  is  an  ASM,  and  SIG  is  computed 
by  multiplying  the  CEP  for  this  type  of  ASM  by  a  constant.  If  ICLASS  is 
two,  the  vehicle  is  a  bomber,  and  SIG  is  computed  by  multiplying  the  CEP 
for  this  type  of  bomber  by  a  constant.  The  components  of  actual  ground 
zero,  IAGX  and  IAGY,  are  computed  by  multiplying  SIG  by  the  value  returned 
by  function  RNDEV  and  adding  the  desired  ground  zero  components.  Non-dud 
weapon  release  is  recorded,  and  subroutine  BDAMAGE  is  called  to  assess  the 
results.  If  IGO  is  one  (live  bomber),  subroutine  NEXTEVNT  is  called; 
otherwise,  a  return  is  made  directly. 

The  release  of  a  live  weapon  is  recorded,  and  a  call  to  Bu/\mUt:  is  made. 

The  Weapon  Table  pointer  is  then  incremented  by  one.  If  the  weapon  was 
delivered  by  a  surviving  bomber,  subroutine  NEXTEVNT  is  called  to  plant 
the  next  event  for  that  bomber. 

If  the  vehicle  does  not  survive,  the  class  indicator  is  tested  to  determine 
the  vehicle  type.  If  ICLASS  equals  three,  the  vehicle  is  an  ASM.  ASM 
kill  by  local  attrition  is  recorded.  If  ICLASS  equals  two,  the  vehicle 
is  a  bomber.  The  number  of  penetrators  in  the  current  zone  is  decreased 
by  one  for  the  bomber  plus  the  number  of  active  decoys.  The  bomber  kill 
is  recorded.  The  probability  of  bomber  kill  before  weapon  release 
BKBRP  is  compared  to  a  random  number  to  determine  if  the  kill  bomber 
successfully  released  a  weapon.  If  so,  this  is  recorded  and  control 
passed  to  the  point  above  at  which  the  weapon  desired-ground- zero  components 
are  retrieved  from  the  Weapon  Table. 

Subroutine  LATTRIT  is  illustrated  in  figure  30. 
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/ 


PURPOSE ; 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


SUBROUTINE  LRAREA 

To  simulate  the  departure  of  a  tanker  from  a 
refueling  area. 

LRAREA 

None 

EDATA,  EPSN,  HISTOUT,  HISTREF,  KEYWORDS,  RECOV, 
REFUEL,  TIME,  19S01 

HIST,  HISTWRIT,  PLANTS,  RANF* 

DONE XT 


Method 


The  execution  of  LRAREA  is  recorded  through  a  call  to  subroutine  HIST. 

The  refueling  area  index  INDP(IHT)  is  retrieved  from  the  tanker  History 
Table  and  stored  in  INDRA. 

If  TIME,  current  game  time,  equals  TABORT,  tanker  in-flight  abort  time,  a 
tanker  abort  has  occurred.  Then  the  fraction  of  total  tankers  in  the 
area  that  are  empty  is  compared  to  a  random  number  generated  by  subroutine 
RANF  to  determine  if  an  empty  tanker  will  leave  the  area.  If  not,  the 
amount  of  fuel  is  subtracted  from  the  amount  in  the  area,  the  abort  is 
recorded,  and  the  subroutine  exits. 

If  there  has  been  no  abort,  the  number  of  empty  tankers  in  this  area 
NETANK(INDRA)  is  tested.  If  there  are  empty  tankers  here  or  if  an  empty 
tanker  had  aborted,  the  array  is  decreased  by  60  and  the  departure  of  an 
empty  tanker  is  recorded.  If  the  departure  is  due  to  abort,  this  fact  is 
recorded  and  the  subroutine  exits. 

If  there  are  no  empty  tankers  in  the  area,  the  amount  of  fuel  in  the  area 
NFTANK(INDRA)  is  decreased,  and  the  departure  of  a  tanker  is  recorded. 

If  the  departing  tanker  has  not  aborted,  a  recovery  base  is  selected  from 
the  list  carried  in  the  tanker's  History  Table,  and  a  Recovery  event  is 
planted  unless  an  enroute  abort  occurs  first. 

Subroutine  LRAREA  is  illustrated  in  figure  31. 
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SUBROUTINE  MLAUN 


PURPOSE : 

To  simulate  the  launch  of  one  or  more  missiles 
from  a  single  squadron. 

ENTRY  POINTS: 

MLAUN 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS : 

EDATA,  HISTA1 ,  INDEX,  INREP,  KEYWORDS,  MISSLE, 
TIME,  TRYL,  19501 

SUBROUTINES  CALLED: 

HIST,  IGET,  IPUT ,  PLANTS,  RANORDER,  TRYLAUN 

CALLED  BY: 

DONE XT 

Method 


The  missile  type  data  for  this  event  are  stored  in  items  of  common  block 
/TRYL/'  for  the  call  to  TRYLAUN.  The  execution  of  subroutine  MLAUN  is 
recorded  through  a  call  to  subroutine  HIST.  The  variable  IREP  is  set 
equal  to  one  unless  the  reprogramming  option  has  been  called  for.  The 
missile  launch  result  counters  are  initialized  to  zero  and  subroutine 
TRYLAUN  is  called  to  try  to  put  the  missile  into  powered  flight. 

If  after  this  call  the  number  of  missiles  processed  N CYCLE  equals  the 
number  of  missiles  in  the  event  NWPNS,  this  is  recorded.  If  missiles 
remain,  the  number  of  targets  processed  NTEST  is  tested  to  see  if  NTARG 
the  number  of  targets  allotted  to  this  squadron  have  been  covered.  If 
any  targets  remain,  TRYLAUN  is  again  called.  If  none  remain,  this  is 
recorded. 

When  either  all  missiles  have  been  processed  or  all  targets  covered, 

NSUCC  is  tested  to  see  if  there  are  any  successful  launches.  If  so, 
subroutine  RANORDER  is  called  to  randomly  reorder  the  ordered  target,  list. 
The  targets  are  matched  with  missiles,  weapon  and  launch  base  data 
moved  from  INDATA  to  OUTDATA,  the  successful  missile  launches  recorded,  and 
Complete  Launch  events  planted. 

Whether  or  not  there  are  any  successful  launches,  NLO,  the  number  of 
missiles  left  over,  is  tested  to  see  if  all  missiles  are  processed.  If  so, 
the  event  is  finished.  If  not,  NLATER  is  tested  to  see  if  any  imsuccessful 
missiles  can  be  launched  later,  If  none  can  be,  the  event  is  finished. 
Otherwise,  INDATA  elements  are  moved  to  OUTDATA,  new  Launch  events  planted 
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for  a  time  equal  to  game  time  TIME  plus  the  time  required  to  retarget 
TRETARG,  and  the  planting  to  the  new  events  recorded.  The  subroutine  then 
exits. 

Subroutine  MLAUN  is  illustrated  in  figure  32. 
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Fig.  32.  Subroutine  MLAUN 
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SUBROUTINE  MONPRIN 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS  : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  initialize  and  control  the  printing  of  event 
data  at  execution  time. 

MONPRIN,  0PTPR1N 

None 

EDATA,  EVENT,  MONDAT,  NSW,  TIME 
PLANT 

RDCARDS ,  DONE XT 


Method 

Entry  OPTPRIN  is  called  to  initiate  the  diagnostic  print  sequence.  The 
NSW  cards  containing  values  for  X  and  Y,  one  pair  to  a  data  card,  are  read 
and  stored.  X  is  the  beginning  time  and  Y  is  the  ending  time  of  a  period 
in  which  diagnostic  printing  is  desired.  MHT,  the  number  of  lines  in  the 
History  Table,  is  set  to  2*NSW,  since  each  of  the  NSW  time  cards  contains 
two  values.  IHT,  the  current  History  Table  line,  is  set  to  one. 

MONSW ,  the  print  switch  tested  by  subroutine  DONEXT,  is  turned  off  (+1). 
The  time  limits  X(I)  and  Y(I)  are  stored  alternately  in  History  Table 
array  items  TINC(2*T-1)  and  TINC(2*1),  1=1,  NSW.  Control  is  transferred 
to  the  point  below  at  which  a  new  MONPRIN  execution  is  planted. 

Entry  MONPRIN  is  called  after  the  subroutine  has  been  initialized  by 
OPTPRIN.  MONSW  is  turned  on  if  it  is  off,  or  off  if  it  is  on.  Since  the 
X(I)  and  Y(I)  are  stored  alternately,  the  result  is  that  MONSW  is  turned 
on  at  the  times  X(I)  and  turned  off  at  the  times  Y(I).  A  value  of  +1  is 
off;  '1  is  on.  If  IHT  equals  1 ,  no  further  executions  of  MONPRIN  are 
desired,  so  the  subroutine  exits.  Otherwise,  IHT  is  moved  to  point  to 
the  next  time  in  the  Histoiy  Table. 

A  new  MONPRIN  execution  is  planted.  FUTIME,  event  execution  time,  is  set 
to  the  current  time  in  the  History  Table.  INDATA  is  stored  in  0U7DATA, 
subroutine  PLANT  is  called  to  plant  an  execution  of  MONPRIN  which  uses 
the  bomber  INDATA  structure,  and  the  subroutine  exits. 

Subroutine  MONPRIN  :!r,  illustrated  in  figure  37. 
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OUT DAT A  (I) 
IN DATA  (I) 


P.lant  Execution 
Of  MON'PRIN 
Fci  Time  PUT  IMP. 


RETURN 


Fig.  33.  Subroutine  MONPRIN 
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SUBROUTINE  MSINPRIN 


/ 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  print  out  INDATA  for  a  missile  launch  event. 

MSINPRIN 

None 

EDATA,  IPSWICH 

MUNPK 

SIMULATE 


Method 

This  subroutine  is  called  from  SIMULATE  only  if  IPSW1  is  set  equal  to  one 
through  data  read  in  on  cards  by  subroutine  RDCARDS.  The  first  14  words 
of  INDATA  are  printed,  followed  by  the  identifiers  of  the  missiles  to  be 
launched.  If  IPSW4  is  equal  to  one,  the  target  list  and  times  of  flight 
are  printed  out.  If  IPSW5  is  equal  to  one,  the  target  aim  coordinates  and 
number  of  terminal  and  area  decoys  for  each  target  are  printed  out.  The 
target  information  is  unpacked  from  INDATA  through  a  call  to  subroutine 
MUNPK. 

Subroutine  MSINPRIN  is  illustrated  in  figure  34. 
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SUBROUTINE  MUNPK 


/ 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALT  _D: 
CALLED  BY: 


To  unpack  missile  data  from  INDATA. 

MUNPK 

None 

EDATA 

None 

CLAUN,  MSINPRIN 


Method 


The  target  data  for  missiles  include  a  word  of  packed  information  for 
eacli  target.  The  word  has  the  following  structure: 


Bits  j 

15 

12 

12 

3 

3 

3 

Variable  j 

Target 

Index 

DGX 

DGY 

DHOB 

Area 

Decoys 

Term 

Decoys 

By  successive  masking  and  right-shifting,  the  variables  are  separated, 
from  right  to  left,  and  stored  in  the  appropriate  separate  locations 
of  INDATA  or  OUTDATA.  If  DGX  or  DGY  is  negative,  the  leftmost  bit  is 
extended.  The  total  number  of  area  and  terminal  aim  points  is  determined 
by  adding  in  the  number  of  warheads. 

Subroutine  MUNPK  is  illustrated  in  figure  35. 
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Fig.  35.  Subroutine  MUNPK 
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SUBROUTINE  NAVATR 


PURPOJE:  To  kill  a  target  by  naval  attrition. 

ENTRY  POINTS:  NAVATR 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  EDATA,  KEYWORDS,  19501 

SUBROUTINES  CALLED:  HIST,  IPUT 

CALLEY  BY:  DONEXT 

Method 

The  attrition  is  recorded  by  two  calls  to  subroutine  HIST.  The 'target, 
and  those  collocated  with  it,  ar  killed  with  calls  to  subroutine  IPUT. 

Subroutine  NAVATR  is  illustrated  in  figure  30. 
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Record 

Naval 

Attrition 


/ 

SUBROUTINE  NAVCAL 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  determine  time  of  naval  attrition. 

NAVCAL 

None 

EDATA,  KEYWORDS,  NAVDATA,  NWORDOUT,  TIME,  19S01 
HIST,  ICET,  IPIJT,  RANF,*  PLANTS,  IFIND 
DONE XT 


Method 


The  DBL  type  is  taken  from  INDATA(3)  and  stored  in  JD,  and  a  call  on 
HIST  is  made  to  record  the  call  to  NAVCAL  The  DBL  status  of  the  base 
is  extracted  with  ICET  and  tested  to  see  if  a  DBL  event  (NAVATR)  for 
this  base  has  already  been  planted.  If  it  has,  the  tape  record  is 
suppressed,  and  the  subroutine  exits. 

If  no  DBL  event  has  been  planted,  the  DBL  status  of  the  base  and  its 
collocated  parts  is  set  to  one.  A  random  number  P  is  selected,  and  the 
curve  of  time-probability  of  DBL  for  the  current  value  of  JD  is 
analyzed  to  determine  the  time  at  which  the  probability  of  DBL  reaches 
P.  Linear  interpolation  between  data  points  is  used.  If  the  probability 
never  attains  the  value  P,  the  History  tape  record  is  suppressed,  and 
the  subroutine  exits.  If  such  a  time  is  found,  a  NAVATR  event  is 
planted  to  occur  at  the  appropriate  time. 

Subroutine  NAVCAL  is  illustrated  in  figure  37. 
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SUBROUTINE  NEXTEVNT 


PURPOSE: 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


If  the  bomber  is  in  enemy  territory,  to  calculate 
the  probability  of  attrition  by  area  defenses; 
and  to  plant  the  next  event  for  the  vehicle. 

NEXTEVNT 

None 

AATTRIT,  DATTA,  EDATA .  EPSN,  TIME,  ZONES 
EXPF , *  PLANTS,  RANF* 

ALAUN,  BLAUN,  CIIANGALT,  DLAUN,  ESEC,  LATTRIT, 
REFUEL 


Method 


If  there  are  no  more  events  in  the  History  Table,  the  subroutine 
returns.  Otherwise,  the  pointer  is  moved  one  position.  If  the  vehicle 
is  outside  enemy  territory  or  the  time  to  the  next  event  is  zero,  the 
next  event  is  from  the  History  Table.  If  in  enemy  territory,  the 
probability  of  surviving  enemy  defenses  is  calculated  and  compared 
with  a  random  number  to  determine  whether  the  bomber  will  suffer  attri¬ 
tion  on  the  forthcoming  leg.  If  it  is  to  be  killed,  the  next  event 
is  Area  Attrition  at  a  random  time  along  the  leg.  In  any  case,  FUTIME 
is  calculated  and  compared  with  the  bomber  abort  time.  The  appro¬ 
priate  event  is  then  planted,  and  the  subroutine  exits. 

Subroutine  NEXTEVNT  is  illustrated  in  figure  38. 
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Fig.  38.  Subroutine  NEXTEVNT 
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SUBROUTINE  PI  ANT 


PURPOSE; 

ENTRV  POINTS; 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 

SUBROUTINES  CALLED; 
CALLED  BY: 


To  insert  u  new  event  into  thv  internal  event 
store. 

PUNT 

None 

F.STOR,  EVENT,  EVINDX,  LISTMEM,  NEVTOT,  TIME, 
19501 

ERROL,  EVPACK,  EVSPILL,  UNSQUEEZ,  UPDIR 
MONPRIN,  PLANTS,  SIMULATE 


Method 


PLANT  begins  by  calling  subroutine  EVPACK  to  pack  the  event  data.  If 
there  is  no  more  space  in  available  list  memory,  subroutine  EVSPILL  in 
called  to  merge  the  event  stoic  with  an  external  file.  If  the  event 
to  be  planted  is  in  the  past,  subroutine  ERROL  is  called  to  print  an 
error  message  and  terminate  the  run.  If  the  time  of  the  event  to  be 
planted  exceeds  TMAX ,  the  subroutine  returns  immediately  without 
planting  the  event. 

If  none  of  the  above  conditions  exists,  the  header  cell  of  list  memory 
is  filled,  and  subroutine  UNSQUEEZ  is  called  to  put  the  event  data  into 
available  list  memory  cells.  It  is  then  necessary  to  link  the  event  into 
the  event  store.  First,  the  sub  list  to  which  the  event  will  be  attached 
is  found  by  comparing  the  time  of  the  event  with  the  maximum  times  or 
the  sublists.  When  the  proper  sublist  is  found,  the  event  is  inserted, 
either  at  the  beginning,  the  end,  or  the  appropriate  pla> e  in  the  middle 
of  the  sublist.  If  sublist  number  one  is  empty  or  the  sub] 1st  entry 
point  directory  has  npt  been  updated  recently,  subroutine  Ui’DIR  is 
called,  and  the  subroutine  exits.. 

Subroutine  PLANT  is  illustrated  in  figure  39. 
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Call -EVPACK 
To  Pack  ARRAY 
IOUTU  Into  IOUTDP 


Call  EVSPILL 
To  Merge  Event 
Store  With  External  File 


So  /  Any  Available 
— Storage? 


Any  Atailal'l.  \  Yes 
Storage?  / 


Call  ERROL 
To  Print 
Error  Message 


Call  ERROL 
Attempt  To  Plant 
Event  In  Past 


Event  In  Past? 


Ves  /  Event  Exceeds 
\  TMAX? 


° _ I _ 

[  Save  I AVAIL 


Set  I AVAIL  To 
Next  Empty  Cell 


Fig.  39. 
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SUBROUTINE  PLANTS 


/ 


PURPOSE :  To  prepare  for  planting  an  event 

ENTRY  POINTS:  PLANTS 

FORMAL  PARAMETERS :  K  -  Event  type  to  be  planted 

L  -  Number  of  words  to  be  moved  from  INDATA  to 
OUTDATA 

COMMON  BLOCKS:  DA'ITA,  EDATA,  EVENT,  FUTPRINT,  TIME 

SUBROUTINES  CALLED:  PLANT 

CALLED  BY:  ALAUN,  BLAUN,  CLAUN,  ERAREA,  ESEC,  LATTRIT, 

L RARE A,  MLAUN,  NAVCAL ,  NEXTEVNT ,  RECOVERY, 
REFUEL,  SIMULATE,  SSTAT 


Method 

The  first  L  words  of  array  INDATA  are  moved  to  array  OUTDATA.  If  IFUT  is 
not  zero,  the  execution  time  of  the  event  being  planted  is  printed. 
Subroutine  PLANT  is  then  called  to  plant  the  event. 

Subroutine  PLANTS  is  illustrated  in  figure  40. 
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Fig.  40.  Subroutine  PLANTS 
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SUBROUTINE  PRINDAT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  print  INDATA  and  INDATAP. 

PRINDAT 

IWDS  -  Number  of  words  of  INDATA  to  be  printed 

EDATA,  ESTOR,  TIME 

None 

EVUNPK 


Method 

TIME,  the  current  game  time,  is  printed.  The  portion  of  INDATAP-  in 
use  is  printed,  the  portion  of  INDATA  in  use  is  printed,  and  the 
subroutine  exits. 

Subroutine  PRINDAT  is  illustrated  in  figure  41. 


SUBROUTINE  PROUTDAT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  print  OUTDATA  and  OUTDATAP. 

PROI  fl'DAT 

IIJNPKO  -  Maximum  OUTDATA  element  used 

EDATA,  I-STOR,  TIME 

None 

EVPACK 


Method 


TIME,  the  current  game  time,  and  FUTIME,  event  execution  time,  are 
printed.  NN  is  set  to  NWORDS+2,  where  NWORDS  is  the  maximum  OUTDATAP 
element  actually  used.  The  portion  of  OUTDATAP  from  one  to  NN  is 
printed,  the  portion  of  OUTDATA  from  one  to  IUNPKO  is  printed,  and 
the  subroutine  exits. 

Subroutine  PROUTDAT  is  illustrated  in  figure  42. 
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^  START  ^ 


l  Print  TIME,  FUTIME  j 

[ _ 

NN  =  NWORDS  +  2 

] 

1  Print  OUTDATAP,  / 

/  1  Thru  NN  / 

i 

/  Print  C 
/  1  Thri 

HJTDATA,  / 

i  IUNPKO  / 

^  RETURN  ^ 


Fig.  42.  Subroutine  PROUTDAT 
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SUBROUTINE  RANORDER 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  put  the  first  NTRS7  integers  in  random  order. 
RANORDER 

NTEST  -  Number  of  integers  to  be  reordered 
•  INDEX 
RANF 

AREABMD,  MLAUN,  TERMBMD 


Method 

The  first  NTEST  words  of  INDEX  are  assigned  integer  values,  one  through 
NTEST,  and  the  first  NTEST  words  of  the  array  VAL  are  set  to  random 
values.  NTEST  is  the  number  of  integers  to  be  reordered.  If  no  more 
than  one  integer  is  to  be  reordered,  the  subroutine  returns.  Otherwise 
LI,  the  number  of  comparisons  to  be  made  on  the  current  pass,  is  set  to 
(NTEST- 1). 

If  a  consecutive  pair  of  random  numbers  are  not  in  ascending  order, 
the  corresponding  words  of  array  INDEX  are  interchanged.  On  the 
next  pass,  one  less  comparison  is  required.  If  after  any  pass  no  more 
comparisons  are  required,  the  subroutine  exits. 

Subroutine  RANORDER  is  illustrated  in  figure  43. 
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SUBROUTINE  RDCARDS 


PURPOSE: 


To  road  the  Simulator  data  from  cards. 


ENTRY  POINTS:  RDCARDS 

FORMAL  PARAMETERS :  None 


COMMON  CLOCKS:  AATTRIT,  ABMDATA,  DAMAGE,  FUTPRINT,  IN' BOMB  F , 

INREP,  IPRINT,  IPSWICH,  LATTRIT,  NAMES,  NSW, 
READ,  TBMDATA,  VULNDATA ,  ZONES 

SUBROUTINES  CALLED:  OPTPRIN,  RANFSET* 


CALLED  BY: 


SIMULATE 


Method 


The  basic  Simulator  data  are  read  and  printed.  R,  the  initial  value 
of  the  random  number  generator,  is  read  and  printed.  Subroutine 
RANFSET  is  called  to  set  the  random  number  generator.  NET,  the  number 
of  event  tapes;  IPRINT,  the  print  option  indicator;  IPSWICH,  the 
option  fiag  for  printing  the  INDATA  blocks;  IFUT,  the  option  flag  fur 
printing  the  event  execution  times  during  the  running  of  the  game;  and 
NSW,  the  option  flag  for  printing  event  data  at  event  execution  time; 
are  all  read  and  printed.  If  NSW  is  nonzero,  subroutine  OPTPRIN  is 
called  to  read  data  cards  and  initialize  the  printing  sequence. 

INBOMBF,  whi<  ndicates  whether  unused  History  Table  lines  should  be 
saved;  IN'REr,  wMch  indicates  whether  reprogramming  is  to  be  conducted; 
FK,  FCM,  ALT,  and  RPEN,  area  attrition  parameters;  the  maximum 

number  of  zonto ;  -EFHI,  DEFL.0,  BKBRP,  and  PDLABT,  local  attrition 
parameters;  are  all  read  and  printed.  The  vulnerability  data  are  read 
but  not  printed.  WTR21MT,  maximum  effective  radius  of  a  one-megaton 
weapon;  DELAY (1)  and  DELAY (2),  respectively,  BLUE  and  RED  delay  times; 
and  PTK(l)  and  PTK(2),  respectively,  BLUE  and  RED  terminal  kill  prob¬ 
abilities;  are  all  read  and  printed.  IARDEF(l),  PSELfl),  PAK(l), 
PRFM(l),  and  PAKD(l),'  area  ballistic  missile  parameters  for  side  BLUE, 
are  read  and  printed;  and  IARDEF (2 j ,  PSEL (2) ,  PAK(2),  PREMf2),  and 
PAKD (2) ,  for  the  RED  side,  are  read  and  printed,  as  is  II  hour,  the 
reference  time  of  the  game. 

Subroutine  RDCARDS  is  illustrated  in  figure  44. 
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Fig.  44.  Subroutine  RDCARDS 
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SUBROUTINE  READIN 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  read  data  from  the  SIMTAPB  tape  into  memory. 

READIN 

None 

AREADAT ,  ASMS,  BOMBER,  BRKPNT,  CAPACITY,  COLAR, 
DAMAGE,  P1LABEL,  MISSLE,  NAVDATA,  NCOL,  PAYLOAD, 
STATUS,  TANKER,  TBMDATA,  TWORD,  WARHEAD,  ZONES 

ABORT,  RDARRAY,  RDWORD ,  SETREAD,  TERMTAPE 

SIMULATE 


Method 


Subroutine  READIN  calls  SETREAD  to  put  the  library  tape  in  read  status. 

ITP,  the  current  tape  unit,  is  set  to  seven  for  the  library  tape  in 
the  calling  subroutine. 

If  the  tape  label  is  incorrect,  an  error  message  is  printed  and  the 
simulation  is  terminated.  If  the  label  is  correct,  then  ITWORD,  the 
number  of  items  in  the  breakpoint  arrays,  is  read  in  and  stored.  NTYPE 
is  set  to  ITWORD  and  subroutine  RDARRAY  is  called  to  read  and  store  NTYPE 
values  of  INDBEGTY  and  of  NAMETYPE.  RDARRAY  is  called  to  read  15  values 
of  each  of  the  arrays  NTYPECUM,  NBLUETYP,  INDBEGCL,  and  NAMCLS. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  items  in  the 
hardness  table.  NVULN  is  set  to  ITWORD.  RDARRAY  is  called  to  read 
store  NVULN  values  of  array  VULN. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  collocated 
targets.  NCOL  is  set  to  ITWORD.  If  NCOL  is  greater  than  4,000,  a  message 
is  printed  noting  that  array  COLAR  would  be  overflowed,  and  subroutine 
ABORT  is  called  to  terminate  the  simulation.  Otherwise,  RDARRAY  is  called 
to  read  and  store  NCOL  items  of  array  COLAR. 

RDWORD  is  called  to  find  NTDEF,  and  RDARRAY  is  called  to  read  and  store 
NTDEF  items  of  array  NTINT,  the  number  of  terminal  defenders  at  each 
complex. 

RDARRAY  is  called  to  read  and  store  60  items  of  the  array  AINT,  the 
number  of  area  interceptors  of  each  area  defense  zone. 
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RDARRAY  is  called  to  read  and  store  20  items  of  the  array  NLRR,  the  number 
of  long-range  radars  effective  over  each  area  defense  zone. 

RDARRAY  is  called  to  read  and  store  20  items  of  the  array  IOVERLAP,  packed 
data  giving  the  INDHXNO  of  a  radar  and  the  zones  which  it  covers. 

RDWORD  is  called  to  find  MAXIND,  the  number  of  bases  in  the  game.  RDARRAY 
is  called  to  read  and  store  MAXIND  items  of  the  STATUS  array. 

RDWORD  then  finds  the  number  of  missile  types  NMIS,  and  the  11  missile 
arrays  comprising  the  larger  array  MIS  are  filled  by  calls  on  RDARRAY. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  items  in  each 
of  the  bomber  arrays.  NSOM  is  sot  to  ITWORD.  RDARRAY  is  called  seven 
times  to  read  and  store  NBOM  items  of  each  of  the  six  bomber  arrays  com¬ 
prising  the  larger  array  BOM. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  items  in  each 
of  the  tanker  arrays.  NTANK  is  set  to  ITWORD.  RDARRAY  is  called  five 
times  to  read  and  store  NTANK  items  of  each  of  the  four  tanker  arrays 
comprising  the  iarger  array  TANK. 

RDWORD  is  called  to  read  and  stoi'e  in  ITWORD  the  number  of  items  in  each 
of  the  ASM  arrays.  NASM  is  sec  to  ITWORD.  RDARRAY  is  called  to  read 
and  store  NASM  items  in  each  of  PLABORT  and  CKPA. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  items  in  each 
of  the  warhead  arrays.  N'WIID  is  set  to  ITWORD.  RDARRAY  is  called  to 
read  and  store  NW11D  items  each  of  PDUD,  YIELD,  and  CEPW. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  items  in  each 

of  the  zone  arrays.  NZON  Is  set  to  ITWORD.  RDARRAY  is  called  to  read 

arid  store  NZON  values  each  of  AREA,  ACCPOT,  and  ZDEFPOT. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  items  .i  the 
e^mmand/control  effectiveness  array.  NTYPCC  is  set  to  ITWORD.  RDARRAY 
is  called  to  read  and  store  NTYPCC  items  of  array  CCPOT. 

RDWORD  is  called  to  read  and  store  in  ITWORD  tire  number  of  items  in  the 
interceptor  effectiveness  array.  NTYPIN  is  set  to  ITWORD.  RDARRAY  is 
called  to  read  and  store  NTYPIN  items  of  array  Dl.TPQT. 

RDWORD  is  called  to  read  and  store  in  ITWORD  the  number  of  items  in  each 

of  the  payload  arrays.  NPAYLOAD  is  set  to  ITWORD.  RDARRAY'  is  called 
five  times  to  read  and  store  NPAYLOAD  items  of  each  of  the  five  arrays 
comprising  the  payload  data.  Then,  data  arc  read  in  describing  the  kill 
probability  as  a  function  of  time  which  will  be  used  in  the  analysis  of 
naval  attrition. 
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Subroutine  TERMTAPE  is  called  to  terminate  the  tape,  ad  the  subroutine 
exits. 

Subroutine  READIN  is  illustrated  in  figure  45. 
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SUBROUTINE  RECHEK 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  determine  if  the  recovery  base  was  killed 
after  aircraft  recovery. 

RECHEK 

None 

EDATA,  HISREC,  KEYWORDS ,  NWORDGl'T,  RECOV,  19501 

HIST,  I GET 

DONEXT 


Method 


A  test  is  made  to  see  if  the  recovery  is  at  the  home  base  (event  type  19 
set  by  subroutine  RECOVERY).  If  it  is,  IREC  is  set  to  the  home  base, 
stored  in  INDP.  If  not,  IREC  is  determined  by  unpacking  INDP  and  referring 
to  the  recovery  array.  In  either  case,  the  base  is  tested  lo  see  if  it 
is  alive.  If  it  is,  no  record  is  made.  However,  if  the  base  is  dead,  it 
is  so  recorded  and  the  subroutine  exits. 

Subroutine  RECHEK  is  illustrated  in  figure  46. 
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SUBROUTINE  RECOVERY 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  simulate  the  recovery  of  a  bomber  or  tanker 
after  completion  of  its  mission. 

RECOVERY 

None 

EDATA,  IIISREC,  IIISTOUT,  KEYWORDS,  TIME,  19501 

HIST,  I GET,  PLANTS 

DONEXT 


Method 

The  call  to  RECOVERY  is  recorded  through  a  call  to  subroutine  MIST. 

If  recovery  is  to  be  at  the  home  base  (INDE=16),  a  test  is  performed 
to  see  if  it  is  still  alive.  If  it  is,  a  record  is  made  and  an  event 

is  planted  to  indicate  that  a  later  check  should  be  made  to  determine 

whether  the  aircraft  was  killed  after  recovery.  If  the  home  base  is 
dead,  this  fact  is  recorded  and  the  subroutine  exits. 

If  vhe  recovery  is  associated  with  the  depenetration  corridor,  the 
corridor  and  base  indicator  IR  are  unpacked  from  INDP.  If  1R=0,  no 
live  base  was  available  when  the  recovery  base  was  selected.  This  is 

recorded,  and  the  subroutine  exits.  If  a  live  base  was  available, 

the  current  status  of  this  base  is  tested.  If  it  is  now  dead,  the 
fact  is  recorded  and  the  subroutine  exits. 

A  record  is  made  of  whether  or  not  the  base  was  saturated,  a  checking 
event  is  planted,  and  the  subroutine  exits. 

Subroutine  RECOVERY  is  illustrated  in  figure  47. 
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SUBROUTINE  REFUEL 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  simulate  a  bomber  refueling. 

REFUEL 

None 

BOMBER,  f.DATA,  IIISTOUT,  II1STPEF,  REFUEL,  TIME 
HIST,  NEXTEVNT,  PLANTS,  RANF* 

DONEXT 


Method 


The  execution  of  REFUEL  is  recorded  through  a  call  to  subroutine  HIST. 

The  number  of  weapons  in  the  Weapon  Table  is  temporarily  set .to  zero. 

The  nine  right-most  bits  of  INDP(IHT)  are  inserted  into  a  local 
variable  INDRA,  the  refuel  area  index.  If  the  remainder  of  the  word 
is  zero,  NT  and  NB  (the  numbers  which  specify  the  tanker- to-bomber 
ratio)  are  set  equal  to  one.  Otherwise,  they  are  extracted  by  masking 
and  shifting.  The  amount  of  fuel  needed  INEED  is  calculated  to  be  60 
times  the  tanker/bomber  ratio.  If  INDRA  is  nonzero,  a  test  is  made  to 
determine  whether  the  place  is  a  refueling  area.  If  NFTANK( INDRA)  is 
greater  than  INEED,  there  is  sufficient  fuel  in  the  area.  If  not,  this 
is  recorded  and  control  is  transferred  as  if  there  were  a  refueling 
abort . 

If  there  are  full  tankers  or  if  the  place  is  not  a  refueling  area,  the 
probability  of  a  refueling  abort  for  this  type  of  bomber  PRABT(ITYPE) 
is  compared  to  a  random  number  generated  by  subroutine  RANF  to 
determine  if  there  is  a  refueling  abort. 

If  there  is  no  refueling  abort,  the  place  is  again  tested  to  see  if  it 
is  a  refueling  area.  If  so,  the  capacity  of  empty  tankers  in  that,  area 
NETANK(INDRA)  is  increased  by  INEED,  and  the  remaining  fuel  in  the  area 
is  decreased  by  a  like 'amount .  If  the  next  event  is  to  be  refueling, 
NEXTEVNT  is  called  directly.  Otherwise,  the  alternate  events  and  weapons 
are  discarded  from  the  History  and  Weapon  tables.  NALT  is  set  to  zero, 
subroutine  NEXTEVNT  is  called  to  plant  the  next  bomber  event,  and  the 
subroutine  exits. 
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If  there  is  a  refueling  abort,  this  is  recorded.  If  the  next  scheduled 
event  is  another  refueling,  a  record  is  made  of  failure  on  the  first  of 
two  refuelings,  and  a  Recovery  event  is  planted  for  the  bomber  at  its 
home  base.  Otherwise,  the  History  Table  and  Weapon  Table  pointers  are 
reset  to  eliminate  the  primary  plan,  and  the  bomber  proceeds  with  the 
alternate  plan.  If  the  next  event  is  Recovery,  the  event  is  planted; 
otherwise,  NEXTEVNT  is  called  and  the  subroutine  exits. 

Subroutine  REFUEL  is  illustrated  in  figure  48. 
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SUBROUTINE  RETLM 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  return  the  cells  from  an  event  in  the  event 
store  back  to  available  list  memory. 


RliTLM 


None 


ESTOR ,  LISTMIiM,  .19501 

None 

DONE XT 


Method 


RETLM  begins  by  finding  the  starting  point  of  the  event,  which  is 
contained  in  NHXTEV  in  common  block  /ESTOR/.  The  link  to  data, 
contained  in  the  last  word  of  the  header  cell,  is  moved  up  to  the  first 
word.  The  links  to  the  data  cells  arc  then  traced  down  until  a  link 
is  contained  which  has  the  value  zero,  indicating  there  are  no  more 
data  cells.  The  zero  is  replaced  by  IAVAIL,  linking  the  event  data 
cells  into  the  beginning  of  available  list  memory.  The  address  of 
the  beginning  of  the  header  cell  is  put  into  IAVAIL  and  the  subroutine 
exits . 

Subroutine  RETLM  is  illustrated  in  figure  -19. 
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<|y.  Subroutine  RliTUl 


FUNCTION  RNDEV 


PURPOSE: 

To  compute  a  random  normal 

ENTRY  POINTS: 

RNDEV 

FORMAL  PARAMETERS: 

X  -  A  dummy  parameter 

COMMON  BLOCKS: 

None 

SUBROUTINES  CALLED: 

RANF 

CALLED  BY: 

LATTRIT,  TERMBMD 

Method 

RNDEV  returns  the  sum  of  12  random  numbers  minus  '6.0.  Function 
RNDEV  is  illustrated  in  figure  SO. 
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SUBROUTINE  SQUEEZE 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  transfer  data  from  list  memory  to  array 
INDATAP. 

SQUEEZE 

None 

ESTOR,  EVINDEX,  19501 

ZABORT 

DONEXT 


Method 


IPK,  the  pointer  to  the  current  element  in  INDATAP,  is  initialized  to 
three.  From  the  header  cell  ot  the  list  memory,  the  link  to  the  next 
event  is  stored  in  INDEVB(l),  and  the  link  to  the  first  data  cell  is 
stored  in  IX.  The  event  time  is  stored  in  INDATAP(l),  and  in 
INDATAP (2)  are  packed  the  event  format,  the  event  type,  and  (just 
before  exiting)  the  number  of  words  of  INDATAP  used.  This  is  done  to 
provide  for  the  situation  in  which  the  event  is  being  spilled  to  an 
external  file.  If  IX=0  (no  data),  the  subroutine  returns. 

Four  data  words  from  a  data  cell  are  stored  in  successive  cells  of 
INDATAP  as  many  times  as  necessary  until  either  IX=0  (no  more  data, 
in  which  case  the  subroutine  exits)  or  until  there  is  danger  that 
the  bounds  of  INDATAP  will  be  exceeded.  In  the  latter  case,  an  error 
message  is  printed  out,  and  subroutine  ZABORT  is  called  to  terminate 
the  simulation. 

Subroutine  SQUEEZE  is  illustrated  in  figure  51. 
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Subroutine  SQUEEZE 


SUBROUTINE  SSTAT 


To  compute  and  print  zone  status  information. 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED : 
CALLED  BY: 


SSTAT 

None 

HI STOUT,  IPRINT,  NAMES 
ZSTATUS 

HISTWRIT,  PLANTS 
DONE XT,  ENDGAME 


NWORDOUT,  TIME,  ZONES 


Method 

JT,  the  number  of  zone  status  events  executed,  is  increased  by  one.  The 
following  computations  are  made  for  both  of  the  two  sides.  NPENTOT,  the 
total  number  of  penetrators ,  is  initialized  to  zero.  IBEG  is  set  to 
MINZONE(K),  the  minimum  zone  number  for  the  current  side.  IEND  is  set 
to  MAXZONE (K) ,  the  maximum  zone  number  for  the  current  side.  NPENZ(I), 
the  number  of  penetrators  in  each  zone  I  from  IBEG  through  IEND,  are 
added  together  and  stored  in  NPENTOT. 

If  NPENTOT  is  nonzero,  current  game  time  TIME  and  the  name  of  the  current 
side  NAMESIDE(K)  are  printed.  For  each  I,  the  zones  from  IBEG  through 
IEND,  the  following  information  is  printed:  I,  the  zone  number;  NPENZ(I), 
the  number  of  penetrators  in  the  zone;  ZDEFPOT(I),  the  defensive  effective 
ness  in  the  zone;  ZCCPOT(I),  the  command  and  control  effectiveness  in  the 
zone;  and  KILLZ(l) ,  the  number  killed  in  the  zone  by  area  attrition. 

If  NPENTOT  is  zero,  no  printout  is  made  for  the  current  ride. 

After  the  above  has  been  executed  for  both  sides,  JT  is  compared  to 
JTMA.X,  the  desired  number  of  zone  status  events  to  be  executed.  If  JT  is 
equal  to  JTMAX,  the  subroutine  exits.  Otherwise  FUTIME,  the  time  for  the 
execution  of  the  next  zone  status  event,  is  set  to  TIME  plus  one-quarter 
hour.  JOANNA,  the  second  parameter  in  the  call  to  subroutine  PLANTS,  is 
set  so  that  PLANTS  does  not  reference  the  format  index  arrays,  v/hich  SSTAT 
does  not  use.  Subroutine  PLANTS  is  called  to  plant  a  zone  status  event 
for  execution  at  FUTIME.  NWORDOUT,  the  number  of  words  of  the  HISTOUT 
block  to  be  used,  is  set  to  zero,  and  the  subroutine  exits. 

Subroutine  SSTAT  is  illustrated  in  figure  52. 


182 


SUBROUTINE  STATSUM 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS- 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  print  a  summary  of  the  status  of  game  items 
by  class  and  type. 

STATSUM 

None 

BRKPNT,  KEYWORDS,  NAMES,  19S01 

I GET,  PAGESKP 

ENDGAME 


Method 

A  page  is  ejected  on  the  standard  output,  and  NTYPES  is  set  to 
NTYPECUM(IS) ,  the  total  number  of  types  in  all  classes. 

For  each  type,  the  following  computations  are  made.  The  number  of 
survivors  NSURV(I)  is  initialized  to  zero.  IBEG  is  set  to  the  first 
index  of  the  current  type  and  IEND  to  the  last.  Since  all  items  were 
alive  initially,  NINIT(I),  the  number  of  items  of  the  current  type  alive 
initially,  is  found  from  the  two  indices.  Through  successive  calls  to 
subroutine  IGET,  the  status  indicator  in  the  STATUS  array  word  for  each 
item  of  the  current  type  is  tested.  IGET  returns  a  zero  for  a  dead 
item  and  a  one  for  a  live  item,  so  NSURV(I),  the  number  of  items  of  the 
current  type  surviving,  is  computed  by  adding  together  all  the  statuses. 

NT,  the  number  of  types,  is  initialized  to  zero. 

For  each  class,  the  following  computations  are  made  and  results  printed. 
The  current  class  name  NAMCLASS(K)  is  printed.  For  each  side,  the 
following  is  done.  The  current  side  name  NAMESIDE(L)  is  printed.  If 
the  current  side  is  side  one,  BLUE,  iBEG  is  set  to  the  number  of 
types  NT  plus  one.  IEND  is  set  to  NT  plus  NBLUETYP(K),  the  number  of 
Blue  types  in  the  current  class.  If  the  current  side  is  side  two,  RED, 
IBEG  is  set  to  IEND  plus  one  and  IEND  and  NT  are  both  set  to  NTYPECUM(K) , 
the  total  number  of  types  in  the  current  class. 

In  either  case,  using  IBEG  and  IEND  as  limits,  the  name  of  the  current 
type  NAMETYPE(I),  the  beginning  base  index  for  the  type,  and  N IN IT ( I ) 
are  printed  for  all  types.  In  addition,  if  the  type  is  one  for  which 
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alivc-dcad  status  is  kept,  then  the  number  surviving,  the  number  killed, 
and  the  percent  killed  arc  printed  out.  The  subroutine  then  exits. 

Subroutine  STATSUM  is  illustrated  in  figure  53. 
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SUBROUTINE  TERMBMD 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  test  for  survival  of  incoming  warheads 
against  a  local  defense  system. 

TERMBMD 

None 

EDATA,  GROUND,  HISTABM,  INDEX,  KEYWORDS,  MISSI.E, 
TBMDATA,  WARHEAD,  19S01 

BDAMAGE,  HIST,  I GET,  LOGF , *  RANF , *  RNDEV 

AREABMD 


Method 

Subroutine  HIST  is  called  to  record  the  call  to  TERMBMD.  NPEN,  NAL,  and 
NDET  are  initialized  to  zero.  SIDE,  attacking  side,  is  subtracted  from 
three  to  give  OSIDE,  defending  side.  If  there  are  no  terminal  aim 
points,  the  subroutine  exits.  ITERM,  the  terminal  defense  index  for 
target  INTAR,  is  retrieved  through  a  call  to  IGF.T  and  stored  in  IT. 

If  IT  is  zero,  there  are  no  interceptors,  and  NPEN,  number  of  penetrators, 
is  set  to  NWHDS,  number  of  warheads,  and  control  is  transferred  to 
statement  23,  below. 

If  IT  is  nonzero,  the  target  is  defended.  NTINT(IT),  the  number  of 
terminal  interceptors  for  this  complex,  is  tested.  If  IT  is  zero,  then 
NPEN  is  set  to  NWHDS  and  control  transferred  to  statement  23. 

If  interceptors  are  available,  enough  are  assigned  to  the  incoming 
objects  to  achieve  approximately  a  .99  kill  probability  considering 
PTK(OSIDE),  probability  of  terminal  kill  for  this  side.  The  number  of 
interceptors  allocated  NAL  equals  the  number  allocated  per  point  N  times 
TA1M  number  of  terminal  aim  points.  If  NAL  is  not  greater  than  NTINT(IT), 
the  kill  probability  PK  is  found  by  subtracting  from  1.0  the  quantity 
1 . -PTK(<~i'MDEj  raised  to  the  Nth  power.  Control  is  then  transferred  to 
statement  J7,  below. 

If  NAL  is  greater  than  NTINT(IT),  N  is  set  to  one,  so  only  one  interceptor 
is  allocated  per  object.  NAL  is  therefore  set  equal  to  TAIM,  and  the  kill 
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probability  formula  is  reduced  to  PK=PTK(OSII)H)  .  If  there  are  not  enough 
interceptors  for  N=1  (NAL  greater  than  NTINT(IT)) ,  control  is  transferred 
to  statement  38,  below. 

Statement  17:  NTINT(IT)  is  reduced  by  NAL.  The  following  test  is 
then  made  for  each  of  NVV1  IDS  warheads.  If  PK,  kill  probability,  is  less 
than  a  random  number  generated  by  subroutine  RANF,  then  NPLN,  number  of 
penctrators,  is  increased  by  one.  When  all  NWHDS  tests  have  been  made, 
control  is  transferred  to  statement  23. 

Statement  23:  If  NPLN  is  nonzero,  warheads  have  leaked  through.  SIG, 
missile  sigma,  is  calculated  by  multiplying  the  CHI’  for  this  missile 
type  CHPM( ITYPE) ,  times  a  constant;  and  IAGX  and  IAGY,  actual  ground  zero 
components,  arc  computed  by  multiplying  SIG  times  RNDCV,  a  random 
deviate  produced  by  function  RNDEV.  SIG  is  then  set  to  the  warhead  CLP, 
CEPW(NWTYP) ,  times  a  constant.  The  following  check  is  made  for  NPEN 
warheads.  If  PI11JD (NWTYP) ,  dud  probability  for  this  type,  is  less  than  ;• 
random  number,  number  detonated  NDET  is  increased  by  one.  When  all 
NPEN  tests  have  been  made,  control  is  transferred  to  statement  32. 

Statement  32:  HIST  is  called  to  record  the  results  of  the  allocation. 

The  following  is  done  for  each  of  the  NDET  detonating  warheads.  JAGX 
and  JAGY,  actual  ground  zero  coordinates  for  this  warhead,  are  each 
computed  by  multiplying  SIG  times  RNDEV.  The  desired  ground  zero 
components  for  the  next  target  are  computed  by  increasing  DGX  by  the 
sum  of  IAGX,  and  JAGX  and  DGY  by  the  sum  of  IAGY  and  JAGY.  Subroutine 
B DAMAGE  is  called  for  burst  damage  assessment.  After  this  has  been 
done  NDET  times,  the  subroutine  exits. 

Statement  38:  There  are  insufficient  interceptors  for  N=l.  NAL,  number 
allocated,  is  set  to  NTINT(IT),  number  of  terminal  interceptors,  and 
NT I NT (IT)  is  set  to  zero.  The  number  of  unattacked  objects  NREM  is 
computed  by  subtracting  NAL  from  TAIM.  ICAT  is  initialized  for  randomizing. 
Words  one  through  NWHDS  are  set  to  one  and  words  NW1IDS+1  through  TAIM 
to  zero.  Subroutine  RP.ORDER  is  called  to  randomly  reorder  INDEX.  Words 
INDEX(l)  through  INDEX (NREM)  of  ICAT  are  tested.  If  the  value  is  one, 
the  object  is  a  penetrator,  and  NPEN  is  increased  by  one.  After  these 
NREM  words  have  been  tested,  NWHDS  is  decreased  by  NPEN,  and  control  is 
transferred  to  statement  18. 

Subroutine  TERMBMD  is  illustrated  in  figure  54. 


SUBROUTINE  TRYLAUN 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  test  for  possible  failures  in  launch  of  an 
individual  missile. 

TRYLAUN 

None 

EDATA,  KEYWORDS,  TRYL 
HIST,  I GET,  IPUT,  RANF  * 

MLAUN 


Method 


TRYLAUN  is  called  by  MLAUN.  The  number  of  missiles  processed  NCYCLE  is 
incremented  by  one.  The  current  missile  index  WPNLIST (NCYCLE)  is  stored 
in  IND,  and  the  current  silo  index  LAUNLIST (NCYCLE)  is  stored  in  INBASE. 
The  missile-in-commission  flag  IC  is  turned  on.  The  probability  that  the 
current  missile  is  in  commission  PINCOMM  is  compared  to  a  random  number 
generated  by  library  subroutine  RANF  to  determine  if  the  missile  is  in 
commission.  If  so,  the  number  in  commission  NCOM  is  incremented  by  one. 

If  not,  this  is  recorded  and  the  in-commission  flag  turned  off. 

In  either  case,  TSTAT,  the  status  of  the  silo,  is  retrieved  through  a  call 
to  function  IGET  and  stored  in  ISTAT.  If  the  silo  is  dead,  1C  is  tested. 
If  the  missile  was  in  commission,  the  facts  that  the  silo  is  dead  and  that 
the  missile  was  in  commission  are  recorded,  and  control  is  transferred  to 
the  test  for  availability  of  reprogramming.  If  the  missile  was  not  in 
commission,  the  facts  that  the  silo  is  dead  and  that  the  missile  was  not 
in  commission  are  recorded,  and  control  is  transferred  to  the  test  for 
availability  of  reprogramming. 

If  the  silo  is  alive,  IC  is  tested  to  see  if  the  missile  is  in  commission. 
If  it  is  not,  control  is  transferred  to  the  test  for  availability  of 
reprogramming . 

If  the  missile  is  in  commission,  NALIVE,  the  number  of  missiles  alive,  is 
incremented  by  one.  The  probability  of  no  abort  for  this  missile  PNOABORT 
is  compared  to  a  random  number. 
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If  there  is  an  abort,  this  is  recorded  and  PDEST,  the  probability  of 
destructive  abort,  is  compared  to  a  random  number.  If  there  is  not  a 
destructive  abort,  control  is  transferred  to  the  test  for  availability  of 
reprogramming.  If  the  abort  destroys  the  silo,  this  is  recorded  and  the 
silo  status  set  to  "dead"  through  a  call  to  subroutine  IPUT.  Control  is 
then  transferred  to  the  test  for  availability  of  reprogramming. 

If  there  is  no  launch  abort,  the  number  of  missiles  not  aborted  NNABT  is 
incremented  by  one.  PFLTFAIL,  the  probability  of  failure  in  powered  flight, 
is  compared  to,  a  random  number.  If  the  missile  fails,  this  is  recorded 
and  the  reprogiamming  index  IREP  tested  for  the  availability  of  reprogram¬ 
ming  after  failure  in  powered  flight.  If  this  is  available,  the  number  of 
missiles  to  try  later  NLATER  is  incremented  by  one.  In  either  case, 
control  is  transferred  to  the  test  for  availability  of  reprogramming. 

If  the  missile  does  not  fail  in  powered  flight,  NSUCfi,  the  number  of 
missiles  successfully  launched,  is  incremented  by  one.  The  successful 
launch  is  recorded  and  the  current  entry  in  tire  list  of  successful 
launches  INDEXWPN(NSUCC)  is  set  to  NCYCLE. 

The  test  for  the  availability  of  reprogramming  is  then  made  and  NTEST,  the 
number  of  missiles  for  which  reprogramming  is  unnecessary,  is  set.  If 
IREP  is  one,  all  missiles  processed  in  this  squadron  are  in  this  category, 
and  NTEST  is  set  to  this  quantity;  if  IREP  is  two,  all  the  missiles  in 
commission  are  in  this  category;  if  IREP  is  four  or  five,  all  those  that 
did  not  abort  are  in  this  category.  Control  is  then  returned  to  MLAUN. 

Subroutine  TRYLAUN  is  illustrated  in  figure  55. 


SUBROUTINE  UNPFOR 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS. 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  unpack  the  format  index  array  into  the  array 
INDFORMO. 

UNPFOR 

None 

EPACK,  EVENT,  PLANTS 
None 

EVPACK,  EVUNPK 


Method 


The  array  INDFOR  is  divided  into  10-word  blocks.  Each  block  contains 
packed  data  words  which  control  the  packing  and  unpacking  (from 
OUTDATA  to  OUTDATAP  in  the  case  of  subroutine  EVPACK;  from  INDATAP  to 
INDATA  in  the  case  of  subroutine  EVUNPK) .  The  value  of  INDF  in 
common  /EVENT/  determines  which  10-word  block  is  to  be  referred  to. 
Each  word  of  INDFOR  is  divided  into  eight  six-bit  segments.  The  first 
segment  of  the  first  word  in  the  block  contains  the  number  of  segments 
used  for  that  value  of  INDF;  the  remaining  segments  contain  the  un¬ 
packing  formats  (indices  to  the  array  J FORMAT  in  common  /FORMAT/) . 

The  subroutine  starts  by  testing  if  INDF  is  the  same  as  the  previous 
value.  If  it  is,  the  array  INDFORMO  is  already  properly  configured, 
and  the  subroutine  exits.  If  not,  counters  are  initialized,  and  the 
unpacking  proceeds  one  word  of  INDFOR  at  a  time.  INDF  is  then  saved 
and  the  subroutine  exits. 

Subroutine  UNPFOR  is  illustrated  in  figure  36. 
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Save  tNDP 


~T~ 

^  RETURN  'y* 


Fig.  56.  Subroutine  UNPFOR 


SUBROUTINE  UNSQUEEZ 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS : 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  transfer  data  from 
memory. 

UNSQUEEZ 

None 

ESTOR,  LISTMEM,  19501 
ERROL,  EVSPILL 
PLANT 


array  OUTDATAP  to  list 


Method 

After  initializing  various  counters,  a  test  is  made  to'  see  if  there  are 
any  data  to  transfer.  If  not,  the  subroutine  returns.  If  there  are, 
a  test  is  made  to  see  if  all  elements  of  OUTDATAP  have  been  transferred. 
When  they  have,  the  list  is  terminated  by  putting  a  zero  into  the 
"link  to  next  data  cell."  If  more  elements  are  to  be  transferred,  this 
is  done  one  cell  (four  data  words)  at  a  time.  If  at  any  time  before 
all  are  transferred  it  is  found  that  no  more  list  memory  is  available, 
subroutine  EVSPILL  (an  entry  to  DONEXT)  is  called  to  spill  the  list 
memory  onto  an  external  file.  The  current  event  is  then  linked  to  the 
now  empty  list  memory.  If  it  is  found  necessary  to  call  EVSPILL  a 
second  time,  subroutine  ERROL  is  called  to  print  a  diagnostic  and  ter¬ 
minate  the  simulation. 

Subroutine  UNSQUEEZ  is  illustrated  in  figure  57. 
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SUBROUTINE  UPDTR 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  update  the  directory  of  entry  points  to  the 
sublists  within  the  event  store. 

UPDIR 

None 

ESTOR,  EVINDX,  NEVTOT,  10501 
None 

DONEXT,  PLANT 


Method 

The  event  store  is  divided  into  10  sub  lists  in  order  to  be  able  to 
plant  a  new  event  efficiently,  rather  than  searching  through  the 
entire  event  store  to  find  the  proper  place  to  insert  the  list.  The 
array  EVTIME  contains  the  maximum  times  of  each  list,  and  the  array 
INDEVB  contains  the  locations  of  the  beginnings  of  each  sublist  in 
list  memory.  Both  arrays  are  in  common  block  /EVINDX/. 

Subroutine  UPDIR  begins  by  linking  all  the  sublists  together.  If  the 
total  number  of  events  is  no  more  than  50,  only  one  sublist  is 
used.  If  there  are  more,  then  one-tenth  of  the  events  are  put  in 
each  sublist.  This  is  done  by  running  down  the  chain  of  events,  and 
breaking  it  into  sublists  of  appropriate  size. 

Subroutine  UPDIR  is  illustrated  in  figure  58. 
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SIJBROUTINH  VLRAD 


PURPOSE: 

To  find  the  lethal  radius  of  a  delivered  warhead 
against  its  target. 

ENTRY  POINTS: 

VLRAD 

FORMAL  PARAMETERS : 

YIELD  -  Yield  of  weapon  in  megatons 

NVN  -  Vulnerability  parameter  of  target 

HOB  -  Weapon  he.ight-of-burst  index 

FN  -  Parameter  specifying  shape  of  damage 

function 

COMMON  BLOCKS: 

VULNDATA 

SUBROUTINES  CALLED: 

ARSE*  EXPF * 

CALLED  BY: 

BDAMAGE 

Method 


NVN  is  decoded  into  the  appropriate  vulnerability  number  VN,  the  letter 
(P  or  Q) ,  and  the  K-factor  XK.  The  cube  root  of  the  yield  is  extracted. 
Then  the  adjusted  vulnerability  number  AVN  is  determined  by  methods 
described  in  "Computer  Computation  of  Weapon  Radius,"  B-139-61,  Air  Force 
Intelligence  Center.  FN  is  set  to  6.  or  3.  for  P  and  Q  type  targets, 
respectively. 

Common  block  /VULNDATA/  contains  four  arrays  (for  the  four  combinations 
of  P  or  Q  vulnerability  and  air-  or  surface-burst),  each  of  which  contains 
the  natural  logarithm  of  the  lethal  radius  (in  nautical  miles)  of  a 
one-megaton  burst.  The  data  are  at  intervals  of  five  vulnerability 
numbers.  Subroutine  VLRAD  interpolates  in  the  appropriate  array  to 
find  the  logarithm  of  the  one-megaton  lethal  radius  for  AVN.  The  lethal 
radius  of  the  weapon  is  then  determined  by  exponentiating  and  multiplying 
by  the  cube  root  of  the  yield. 

Subroutine  VLRAD  is  illustrated  in  figure  59. 


♦System  Library  Function 


Decode  NVN  To 
VN,  LETTER,  XK 


Find  Ordinate 


From  Appropriate 
Letter-HOB 
Combination 


Calculate 

Weapoi 

Radius 


Find  Data 
Points  Boundary 
AVN 


Set 

HOB  Switch 


SUBROUTINE  ZABORT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 

CALLED  BY: 


To  terminate  the  History  tape  properly  before 
calling  subroutine  ABORT. 

ZABORT 

None 

BRKPNT,  ITP ,  MYIDENT,  RECOV,  TWORD,  WARHEAD 

ABORT,  SETREAD,  SKIPFILE,  TERMTAPE,  WRARRAY, 
WRWORD 

DONEXT,  EVPACK ,  EVUNPK,  SQUEEZE 


Method 


The  word  4HLAST,  and  the  recovery  base  index  array,  are  written  on 
the  History  tape.  The  tape  is  then  terminated,  the  breakpoint  and 
yield  tables  added  at  the  end,  and  ABORT  is  called. 

Subroutine  ZABORT  is  illustrated  in  figure  60. 
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CHAPTER  3 
PROGRAM  READSUM 


PURPOSE 


READSUM  performs  three  major  tasks  within  the  Data  Output  subsystem.  The 
primary  one  is  to  expand  the  abbreviated  output  from  SIMULATE  using  infor 
mation  gathered  from  the  output  of  INDEXER,  put  the  values  of  all  per¬ 
tinent  attributes  into  standard  attribute-value  da^a  base  format,  and 
write  both  a  full  History  tape  and  one  containing  only  Burst/Damage 
events . 

The  second  function  is  to  produce  standard  output  .summaries  of  bomber, 
missile,  and  tanker  data  for  each  side  and  the  cumulative  number  of 
both  Actual  (simulated)  Ground  Zeros  (AGZs)  and  megatons  delivered  for 
user-specified  times,  regions,  and  groups  of  countries.  The  data  are 
stored,  as  the  output  from  SIMULATE  is  being  processed,  and  are  printed 
at  the  conclusion  of  this  processing. 

The  third  task  is  to  combine  the  Burst/Damage  events  from  SIMULATE  with 
information  such  as  latitude,  longitude,  target  designator,  and  task 
obtained  from  the  output  of  INDEXER  and  to  write  four  AGZ  tapes:  two  in 
a  format  appropriate  for  input  to  the  SIDAC  damage  assessment  model  and 
program  WPNSUM;  and  two  in  a  format  usable  in  REST  and  OUTBLUE.  SIDAC, 
WPNSUM,  REST,  and  OUTBLUE  are  damage  assessment  systems  maintained  by 
NMCSSC.  They  are  not  part  of  the  QUICK  system. 


INPUT  FILES 


The  input  to  program  READSUM  comes  from  three  sources:  the  HISTAPE 
produced  by  program  SIMULATE,  the  INDEXDB  tape  produced  by  program 
INDEXER,  and  the  user-input  parameters. 

The  HISTAPE  is  made  up  of  pairs  of  records.  The  first  record  contains 
the  number  of  words  in  the  second  record.  The  second  record  contains 
the  appropriate  portions  of  an  array  called  HISTOUT  in  program  READSUM 
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which  was  NHISTOUT  in  SIMULATE.  The  NIIISTOUT  records  describe  in  an 
abbreviated  form  each  event  which  occurs  in  SIMULATE. 

The  INDEXDB  tape  has  breakpoint  tables  which  give  beginning  indices  of 
each  class  and  type,  and  the  number  of  Red  and  Blue  types  in  each  class. 
With  their  aid,  it  is  possible  to  obtain  the  class,  type,  and  side  of 
any  weapon  from  its  index  number.  INDEXDB  proper,  which  is  an  indexed 
data  base  tape,  is  read  item  by  item,  and  information  such  as  latitude, 
longitude,  and  target  designator  are  stored  by  index  number  for  later  use 
in  producing  the  output  files.  Weapon  and  payload  information  are  also 
stored  for  later  use. 

The  user -input' parameters  define  tne  times,  regions,  and  country  groups 
for  which  standard  summaries  are  to  be  stored  and  printed.  In  addition, 
they  control  the  production  and  printing  of  the  strike  tapes. 


OUTPUT  PILLS 


Six  files  are  output  from  program  READSUM:  HISTDATA,  HISTAGZ.  AGZREDRO, 
AGZREDSW,  AGZBLURO,  and  AGZBLUSW. 


Complete  Event  History  Tape  (HISTDATA) 

This  tape  is  written  in  attribute-value  format  and  holds  a  record  of  each 
event  for  each  vehicle  in  the  war  game.  It  is  a  combination  of  the 
partially  coded  data  contained  on  HISTAPE  and  the  information  retrieved 
from  INDEXDB.  The  attributes  filled  for  each  event  type  are  enumerated 
in  the  descriptions  of  ADDATA,  BDAMX ,  BOMBANDT,  BOMBFX ,  CLAUNX,  MLAUNX, 
and  MATTRITX. 


AGZ  (Burst  Event]  History  Tape  (HISTAGZ1 

This  tape  is  a  subset  of  HISTDATA  containing  only  actual  ground  zero 
(AGZ)  or  burst  event  data.  The  attributes  filled  are  listed  in  the  dis¬ 
cussion  of  BDAMX. 


AGZREDSW,  AGZREDRO,  AGZBLUSW,  and  AGZBLURO 


The  AGZ  (actual  ground  zero)  tapes  contain  information  on  weapons  which 
were  simulated  as  having  reached  the  target.  Four  card  image  tapes  are 
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prepared:  two  (table  18)  for  input  to  the  SIDAC  damage  assessment  model 
and  program  WPNSUM;  and  two  (table  19)  for  input  to  non-QUICK  programs 
REST  and  OUTB1.UE. 


CONCEPT  OF  OPERATION 


Each  event  which  has  been  simulated  by  SIMULATE  is  contained  on  1 II SI  APE 
in  an  abbreviated  format.  In  order  for  these  events  to  be  summarized  by 
the  general-purpose  program  TABGEN,  they  must  be  translated  into  attribute- 
value  format  and  augmented  with  other  data  not  available  on  the  HISTAPE. 
This  is  done  by  taking  from  /HISTOUT/  any  data  that  can  be  directly 
transferred  to  the  VALUE  array  and  adding  to  it  TYPE,  CLASS,  and  other 
attributes  gathered  from  the  breakpoint  tables  and  the  body  of  INDEXDB 
tape . 

As  this  is  done,  it  is  also  convenient  to  produce  a  few  standard  sum¬ 
maries  which  are  printed  when  the  processing  of  HISTAPE  is  complete. 

At  the  same  time  all  Burst/Damage  events  are  written  in  formats  suitable 
for  input  to  the  damage  assessment  models. 


SUMMARY  OF  SUBROUTINES  PERFORMING  MAJOR  FUNCTIONS 


The  calling  hierarchy  of  subroutines  in  the  program  is  shown  in 
figure  61. 

Subroutine  READATA  reads  the  user-input  parameter  cards  which  establish: 
the  game  start  time;  and  the  command  function  codes  and  weapon  system 
codes  used  in  preparing  the  output  tapes  for  SIDAC  and  REST. 

Subroutine  MOREDATA  retrieves  from  INDEXDB  the  breakpoint  tables  which 
hold  the  type  and  fclass  names  associated  with  each  index  number.  It 
also  retrieves  other  attributes  such  as  YIELD,  FFRAC,  and  PDUD  for  items 
in  class  WARHEAD,  and  CEP,  LAT,  LONG,  DESIG,  and  TASK  from  other  appro¬ 
priate  items. 

Subroutine  READOUT  reads  each  event  (HISTOUT  array)  from  HISTAPE.  Data 
which  are  specified  for  each  event  (SIDE,  TIME,  EVENT,  IREG,  IALERT, 
TYPE,  and  CLASS)  are  immediately  placed  in  the  VALUE  array.  One  of  the 
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Table  18. 


AGZ  Tapes  for  SIDAC  and  WPNSUM  (AGZREDSW  and  AGZBLUSW) 
(Sheet  1  of  2) 


COLUMN 

INFORMATION 

REMARKS 

1 

S 

Constant 

2 

0 

Constant 

3 

Command  or  function  code 

1-9 

4-8 

QUICK  index  number  ( INDKXNO) 

00001-12000 

9-10 

Day 

01-31 

11  —  12 

Hour 

00-23 

13-14 

Minutes 

00-59 

15-16 

Month 

01-12 

17-18 

Year 

00-99 

19-24 

Latitude 

6  Numeric  (Deg.,  Min 
Sec. ) 

25 

North  or  South 

N  or  S 

26-32 

Longitude 

7  Numeric  (Deg.,  Min 
Sec.) 

33 

East  or  West 

E  or  W 

34-38 

Target  designator 

2  Alpha  3  Numeric 

39-44 

Blank 

45 

Region  code 

1-3 

46-48 

Fission/yield  ratio 

000-1000 

49 

Blank 

50-54 

Yield  (KT) 

00001-99999 

55 

HOB 

A  or  G 

56-57 

Blank 

58-60 

CEP 

All  are  000 

61 

Blank 

62-6? 

Task/subtask 

2  Alpha 

64-65 

Country  location 

2  Alpha 

66-69 

Blank 

70-71 

Warhead  (code) 

00-99 
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Table  18.  (cont.) 

(Sheet  2  of 


COLUMN  INFORMATION 

72-73  Vehicle  type  (code) 

74-79  Unit  sortie 

80  Blank 


2) 

REMARKS 
00-99 
6  Numeric 
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COLUMN 

1 

2 

3 

4-8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-24 

25 

26-32 

33 

34-38 

39-44 

45 

*46-48 

49 

*50-54 

55 

56-57 

58-60 

61 

62-63 


*  When 
ratii 


Table  19.  AGZ  Tapes  for  REST  and  OUTBLUE  (AGZREDRO  and  AGZBLURO) 
(Sheet  1  of  2) 


INFORMATION 

REMARKS 

S 

Constant 

0 

Constant 

Command  or  function  code 

1-9 

QUICK  index  number  (INDF.XNO) 

00001-12000 

Day 

01-31 

Hour 

00-23 

Minutes 

00-59 

Month 

01-12 

Year 

00-99 

Latitude 

6  Numeric  (Deg.,  Min. 
Sec . ) 

North  or  South 

N  or  S 

Longitude 

7  Numeric  (Deg.,  Min. 
Sec.) 

East  or  West 

E  or  W 

Target  designator 

Blank 

2  Alpha  3  Numeric 

Region  code 

1-3 

Fission/yield  ratio 

Blank 

000-100 

Yield  (KT) 

00001-99999 

HOB 

Blank 

A  or  G 

CEP 

Blank 

All  are  000 

Task/subtask 

2  Alpha 

yield  (CC  50-54)  is  less  than  100,  the  field  for  fission/yield 
i  (CC  46-48)  must  be  blank. 
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Table  19.  (cont.) 

(Sheet  2  of  2) 


COLUMN 

INFORMATION 

REMARKS 

64-65 

Country  location 

2  Alpha 

66-68 

Blank 

*69-71 

Weapon  system 

3  Alpha 

72-73 

Vehicle  type  (code) 

01-99 

74-79 

Unit  sortie 

6  Numeric 

80 

Blank 

*Wcapon  system  (CC  69-71)  is  derived  from  command/function  code  (CC  3). 
(See  Weapon  System  Code  Cards,  User-Input  Parameters,  Program  RBADSUM, 
Chapter  5,  User's  Manual,  Volume  II.) 
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READOUT 


MORE DATA 


READATA 


GENOUTPT 


SPCTBLPT 


Fig.  61.  Callin2  Hierarchy  of  Program  READSUM 


following  subroutines  is  then  called  to  transfer  information  which  per¬ 
tains  only  to  that  event. 

Subroutine  MLAUNX  is  called  for  event.  1.  Attributes  are  added  to  the 
VALUE  array  depending  on  whether  or  not  a  command  failure  has  occurred. 

If  it  has  not,  each  separate  missile  launch  is  examined  and  attributes 
describing  it  are  filled. 

Subroutine  MATTRITX  is  called  for  events  9  and  18  to  transfer  information 
to  VALUE  for  Area  and  Terminal  Attrition  events. 

Subroutine  CLAUNX  is  called  for  event  3  to  add  attributes  for  a  Complete 
Launch  event  to  the  VALUE  array. 

Subroutine  BOMBANDT  is  called  for  events  2,  4,  5,  7,  8,  11-17,  and  19-21 
to  add  attributes  for  bomber  and  tanker  events . 

Subroutine  BOMBFX  is  called  by  BOMBANDT  to  process  events  which  were 
planned  but  did  not  occur  because  of  bomber  or  tanker  failure. 

Subroutine  BDAMX  is  called  for  event  10  to  add  the  attributes  associated 
with  the  delivery  vehicle  and  the  target  in  a  Burst/Damage  event. 

Subroutine  WRAGZ  is  called  by  BDAMX  to  write  the  Burst/Damage  event  data 
in  formats  suitable  for  input  to  the  various  damage  assessment  models. 

Subroutine  ADDATA  is  called  by  BDAMX,  MATTRITX,  MLAUNX,  CLAUNX,  and 
BOMBANDT  to  add  the  information  retrieved  from  INDEXDB  by  MOREDATA  to  the 
VALUE  array,  to  write  HISTDATA  and  HISTAG2,  and  to  call  the  subroutines 
which  accumulate  the  data  for  the  standard  summaries. 

Subroutine  GENTBLES  is  called  by  ADDATA  to  update  the  summary  tables  of 
bomber,  tanker,  and  missile  data. 

Subroutine  SPCTBL  is  called  by  GENTBLES  to  store  data  for  the  YIELD  and 
AGZ  summaries. 

Subroutine  GENOUTPT  combines  data  accumulated  for  the  bomber,  tanker, 
and  missile  summaries  with  labeling  information  and  calls  subroutine 
GENPRIN  to  print  these  tables. 

Subroutine  SPCTBLPT  prints  the  cumulative  megaton  and  cumulative  AGZ 
tables . 

Subroutine  GENPRIN  prints  the  bomber,  tanker,  and  missile  standard 
summaries . 
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COMMON  BLOCK  DEFINITION 

/ 

if 

External  Common  Blocks 


The  external  common  blocks  used  by  program  READSUM  in  processing  INDEXDB 
and  HISTAPE  are  shown  in  table  20.  Program  READSUM  also  references  the 
following  utility  routine  common  blocks  which  are  described  in  appendix  A 
of  Volume  I,  Part  A,  Programming  Specifications  Manual,  Data  Input 
Subsystem:  /ITP/,  /TAPES/,  /NOPRINT/,  /MYIDENT/,  /FILABEL/,  /PROCESS/, 
/EDITERM/,  /EDITAPO/,  and  /TWORD/.  The  filehandler  common  block  /FILE/ 
described  on  page  17  of  the  same  volume  is  also  used  to  determine  the 
number  of  words  written  on  UISTDATA  and  HISTAGZ. 


Internal  Common  Blocks 

The  internal  common  blocks  used  by  program  READSUM  are  described  in 
table  21. 


216 


Table  20.  Program  REAUSUM  lixtcrnal  Common  Blocks 
(Sheet  1  of  2) 

INPUT  FROM  INDEXOB  ANO  HTSTAPli 

VARIABLP  Oil  ARRAY*  DESCRIPTION 

KNTRY (256)  List  of  distinct  CNTRYOWN, 

CNTRYLOCs 

KFCN (256)  -List  of  distinct  FUNCTIONS 

KREG(ll)  I.ist  of  distinct  IRHGs 

KLATPK(SOOO)  Packed  latitude  and  longitude 

LATLONG(l)  Intermediate  packing  word 


3 

NDLSTK(l) 

Intermediate  DESIG,  TASK  packing 
word 

ASM 

CEPA(20) 

ASM  CEP  by  type 

I WHOA (20) 

ASM  WIIDTYPE  by  type 

BYTYPP 

CUMNO(iS) 

Cumulative  number  of  types 

BTYPES (15) 

Smallest  index  number  in  each  class 

INDCLAS(15) 

Beginning  index  number  for  each 
class 

INDBEG(250) 

Beginning  index  number  for  each 
type 

TY  RENAME  (250) 

Array  containing  type  names 

KLASSES(250) 

Array  containing  class  name  for 
each  type 

BOMBER 

CEPB (40) 

Bomber  CEP  by  JTYPE 

MISSILE 

CEPM(40) 

Missile  CEP  by  .JTYPE 

*  Parenthetical  values  indicate  array  dimensions.  All  other  elements  arc 
single  word  variables. 


BLOCK 

2 
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BLOCK 

WARHEAD 


HI STOUT 


Table  20.  (cent.) 

(Sheet  2  of  2) 


VARIABLE  OR  ARRAY  DESCRIPTION 

YIELDX(SO)  Yield  by  WHDTYPE 

FFRACX(50)  Fission/fraction  by  WHDTYPE 

PDUDX(50)  Probability  of  dud  warhead 


NHISTOUT(200)  Block  of  data  describing  each 

event  simulated  by  SIMULATE;  see 
chapter  2  of  this  volume.  The 
Simulation  Subsystem,  Output 
Files 
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Table  21.  Program  READSUM  Internal  Common  Clocks 
(Sheet  1  of  4) 


BLOCK 

VARIABLE  OR  ARRAY* 

DESCRIPTION 

1 

NDXCTY (12000) 

For  each  INDEXNO  it  contains 

packed  indices  to  arrays  in 
common  block  /2/ 


BCDKLS 

BCDBOM 

Class  name  BOMBER 

BCDMSL 

Class  name  MISSILE 

BCDTNK 

Class  name  TANKER 

BCDASM 

Class  name  ASM 

BCDW11D 

Class  name  WARHEAD 

COMCOD 

COMCOD (160) 

Command  codes  for  each  type 

DOAGZ 

NDOAGZ 

Input  specification  to  control 
producing  strike  tape 

NPRAGZ 

Input  specification  to  control 
printing  of  strike  tape 

NDNSW 

Switch  to  control  writing  of 
strike  tapes 

NPSW 

Switch  to  control  printing  of 
strike  tapes 

I  REGS 

IREGT 

Target  region 

KEYS 

KLAT 

LATITUDE  packing-unpacking  key 

KLONG 

LONGITUDE  packing-unpacking  key 

KEYOWN 

CNTRYOWN  packing-unpacking  key 

KEYLOC 

CNTRYLOC  packing-unpacking  key 

KEYFCN 

FUNCTION  packing-unpacking  key 

‘Parenthetical  values  indicate  array  dimensions.  All  other  elements  are 
single  word  variables. 
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Table  21. 


BLOCK 

VARIABLE  OR  ARRAY 

KEYS 

KEYLAT 

(cont.) 

KEYREG 

KNTWRT 

NOWRTD 

NOWRTA 

MAXES 

MAXKLS 

MAXWHD 

MAXASM 

MAXMIS 

MAXiiOM 

MAXLOC 

MAXREG 

MAXGRP 

OUTFUTSM 

VC1 (16,2) 

VC2 (16, 2) 

VC3(2, 2) 

NCT1 (2) 

NCT2 (2) 

NCT3 (2) 

A(27, 16,2) 

AM(14, 16,2) 

AT  ( 1 4 , 2 , 2 ) 

N0D01 (2) 

N0D02 (2) 

(cont .} 

(Sheet  2  of  4) 

DESCRIPTION 

LAT-LONG  index  packing-unpacking 
key 

IREG  packing-unpacking  key 

Number  of  words  on  IIISTDATA 
Number  of  words  on  HTSTAGZ 

Maximum  number  of  classes 
Maximum  number  of  warheads 
Maximum  number  of  ASMs 
Maximum  number  of  missiles 
Maximum  number  of  bombers 
Maximum  INDEXNO  : 

Maximum  number  of  regions 
Maximum  number  of  country  groups 

I 

BOMBER  type  names  by  side! 

MISSILE  type  names  by  side 

,  TANKER  type  names  by  side 

Number  of  t>^pe  names,  in  VC1 

Number  of  type  names  in  VC2 

Number  of  type  names  in  VC3 

BOMBER  data  array 

MISSILE  data  array 

TANKER  data  array 

Switches  to  indicate  overflow 
of  VC1 

Switches  to  indicate  overflow 
of  VC2 
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Tablo  21. 

(cont .) 

(Sheet  3  of  4) 

BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

OUTPUTSM 

N0D03 (2) 

Switches  to  indicate  overflow 

(cont. ) 

of  VC 3 

SPECIAL 

NAGZ(12, 10,2) 

Cumulative  number  of  AGZs  by 
region 

YDELf 12, 10,2) 

Cumulative  yield  delivered  by 
region 

TAU(IO) 

Time  intei'vals  for  summaries 

SPECIAL 

NAMESIDE(2) 

SIDE  labels 

(cont.) 

NAMERF.G(12,2) 

Region  labels 

NUMREG 

Number  of  regions 

MAXTIM 

Maximum  number  of  time  intervals 

NAGZ2 (12, 10, 2) 

Cumulative  number  of  AGZs  by 
country  group 

YDEL2 (12 , 10,2) 

Cumulative  yield  delivered  by 
country  group 

NUMGP (10, 2) 

Number  of  countries  in  each 
country  group 

CC0DES(20, 10,2) 

Names  of  countries  in  each 
country  group 

NAMEGP(10,2) 

Country  group  labels 

ST 

KFAIL 

Contains  default  value 

NAMES  IDE (2) 

Contains  BLUE,  RED 

ST  I  ME 

JDAY 

t 

Game  starting  day 

JMON 

Game  starting  month 

JYEAR 

Game  starting  year 

JHOUR 

Game  starting  hour 

JMIN 

Game  starting  minute 
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Table  21.  (cont.) 

(Sheet  4  of  4) 


BLOCK 

VARIABLE  OR  ARRAY 

TAPES 

ITAPES (10) 

MAXTAPE(IO) 

NTP 

NROUT 

TAPETYPE 

NTPTYPE 

TBLSIZB 

MAXROWB 

MAXROWM 

MAXROWT 

MAXCOLB 

MAXCOLM 

MAXCOLT 

TITLES 

TITLES(81) 

TITLEM(42) 

TITLET(42) 

WPSYS 

NWPSYS (9 , 2) 

DESCRIPTION 
Logical  tape  numbers 
Presently  unused 
Logical  tape  number 
Number  of  output  tapes 

Indicates  type  of  HISTAPE 

Maximum  rows  for  bomber  tables 

Maximum  rows  for  missile  tables 

Maximum  rows  for  tanker  tables 

Maximum  columns  for  bomber  tables 

Maximum  columns  for  missile 
tables 

Maximum  columns  for  tanker  tables 

Row  labels  for  bomber  tables 
Row  labels  for  missile  tables 
Row  labels  for  tanker  tables 

Weapon  system  codes  by  function 
code  and  side 
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PROGRAM  READSUM 


PURPOSE :  To  initialize  tapes  and  call  various  subroutines 

required  to  produce  IIISTDATA  and  HISTACZ,  the 
standard  summaries,  and  the  four  strike  tapes. 

ENTRY  POINTS:  READSUM 


FORMAL  PARAMETERS :  None 


COMMON  BLOCKS:  FI  LABEL,  ITP,  KNTWRT,  MY I  DENT,  NOPRINT,  STTME , 

TAPES,  TAPETYPE 

SUBROUTINES  CALLED:  ENDDATA,  GENOUTPT ,  INITAPE ,  MOREDATA,  NEWUNTT, 

. ““  READATA,  READOUT,  SETRF.AD*  ,  SPCTRLPT,  STORAGE, 

WRAGZF 


CALLED  BY: 


None 


Method 

Program  READSUM  calls  subroutine  MOREDATA  to  read  the  breakpoint  tables 
and  other  required  data  from  INULXDB.  Subroutine  READOUT  reads  HISTAPE 
and  controls  the  calling  of  the  event  processing  routines.  Subroutines 
GENOUTPT  and  SPCTBLPT  are  called  to  print  the  standard  summaries. 
Subroutine  WRAGZF  is  called  to  complete  the  writing  of  the  four  strike 
tapes . 

Program  READSUM  is  illustrated  in  figure  62. 


*See  filehandler  routines 
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SUBROUTINE  ADDATA 


PURPOSE : 


ENTRY  POINTS: 


FORMAL  PARAMETERS : 


COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 


To  add  the  information  retrieved  by  MOREDATA  to 
the  VALUE  array  and  to  control  t lie  writing  of  the 
HISTDATA  and  HISTAGZ  tapes. 

ADDATA,  ADDREP,  RESTORE 

None 

BYTYPF. ,  EDITERM,  EDITAPE,  FILE*,  IRECS,  KEYS, 
KNTWRT ,  1,  2,  3,  MAXES,  MYIDENT,  PROCESS,  TAPES, 
WARHEAD 

CHANGE,  ENDREEL,  GENTBLES,  I GET,  OUT ITEM,  PRITEM 
BDAMX,  BOMBANDT ,  CLAUNX,  MATTRITX,  MLAUNX 


Method 


Subroutine  ADDATA  is  called  by  each  of  the  event  translator  subroutines. 
If  there  are  nonvarying  attributes  defined  for  a  sequence  of  events 
(as,  for  example,  Burst/Damage  events  for  a  collocation  island),  entry 
is  through  ADDREP,  which  sets  a  switch  to  prevent  default  values  from 
being  restored  before  exit  from  the  subroutine.  Entry  point  RESTORE  is 
provided  to  reset  the  default  values  after  the  events  with  nonvarying 
attributes  have  been  processed. 

ADDATA  begins  by  calling  function  IGET  to  unpack  the  indices  of  the 
attributes  FUNCTION,  CNTRYOWN,  CNTRYLOC,  and  IREG,  corresponding  to  the 
current  value  of  INDEXNO  (statement  101) .  These  attributes  are  then 
obtained  and  placed  in  the  VALUE  array.  If  a  target  index  (INTAR)  has 
been  assigned,  the  appropriate  indices  are  obtained  by  IGET  to  retrieve 
the  attributes  CNTYOWNT  and  CNTYLOCT,  which  are  then  stored  in  VALUE 
(statement  111).  IREGT  is  stored  in  a  common  block  /IREGS/  for  transmit¬ 
tal  to  the  necessary  subroutines.  The  breakpoint  tables  are  used  to 
determine  the  class  and  type  corresponding  to  INTAR.  These  attributes 
also  are  aaded  to  array  VALUE.  If  the  index  WHDTYPE  has  been  defined, 
the  attributes  PDUD  and  YIELD  are  retrieved  from  the  arrays  in  which  they 
were  stored  by  MORF.DATA  (statement  131);  if  the  index  WHDTYPEN  is 


*See  filehandler  routines, 


225 


defined  instead,  only  the  attribute  YIELD  is  retrieved  (statement  141). 
The  appropriate  attributes  then  are  placed  in  VALUE. 

GENTBLES  is  called  to  store  data  for  the  standard  summaries  (statement 
150).  All  data  in  the  VALUE  array  now  are  written  onto  the  HISTDATA 
tape.  If  the  event  being  processed  involved  a  weapon  burst  (which  was 
indicated  by  setting  PRIMETAR  to  1),  the  data  also  are  written  onto 
the  HISTAGZ  tape  (statement  151) .  Default  values  are  reset  if  entry 
was  through  ADDATA  (statement  152).  In  order  to  provide  for  multiple 
reel  data  base  tapes,  the  number  of  words  written  on  the  HISTDATA  tape 
thus  far  is  queried.  When  this  number  exceeds  one  million,  subrouti  e 
ENDREEL  is  called  to  have  the  operator  mount  a  new  reel  of  tape.  Other¬ 
wise,  control  is  returned  to  the  calling  subroutine. 

Subroutine  ADDATA  is  illustrated  in  figure  63. 
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/ 


l.n try  AUDAI’A 


lintry  AODIU.I' 


SUBROUTINE  ADDIN 


PURPOSE: 

To  increment  the  appropriate  entries  in  the 
bomber,  tanker,  and  missile  standard  summaries. 

ENTRY  POINTS: 

ADDIN 

FORMAL  PARAMETERS: 

V  -  Type  name  array 

AR  -  Array  of  tabled  summary  data 

NCT  -  Number  of  entries  in  V 

NODO  -  Switch  to  indicate  overflow  of  array  V 

K  -  Index  to  side 

I  -  Row  index  of  array  AR 

M  -  Number  of  rows  in  array  AR 

N  -  Number  of  columns  in  array  AR 

COMMON  BLOCKS: 

ED1TAPE ,  EDITERM,  PROCESS 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

GENTBLES 

Method 


Subroutine  ADDIN  examines  the  table  of  type  names  to  determine  whether 
the  current  type  is  present  (statement  73).  If  it  is,  the  index 
becomes  the  column  index  of  the  table  and  the  table  entry  is  incremented 
(statement  72) .  If  it  is  not,  the  new  type  is  added  to  the  array  of 
type  names  if  there  is  space  available  (statement  777),  and  this  index 
becomes  the  column  index. 

The  appropriate  entry  in  the  output  array  (statement  773)  is  incremented 
and  control  returns  to  GENTBLES. 

Subroutine  ADDIN  is  illustrated  in  figure  64. 
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SUBROUTINE  BDAMX 


/ 

PURPOSE :  To  add  tho  attributes  associated  with  the  delivery 

vehicle  and  the  target  in  a  Burst/Damage  event,  to 
the  VALUE  array. 

ENTRY  POINTS:  BDAMX 

FORMAL  PARAMETERS:  None 

COMMON  BLOLkS:  EDITAPE,  EDITERM,  HI STOUT,  MAXES,  PROCESS, 

TAPETYPE,  TWORD 

SUBROUTINES  CALLED:  ADDREP,  CHANGE,  I GET,  KEYMAKE ,  RESTORE,  WRAG7- 

CALLED  BY :  READOUT 


Method 

BDAMX  begins  by  adding  the  index  number,  vehicle  index  number,  and 
the  warhead  type  (INDEXNO,  INDV,  and  WHDTYPE)  to  the  VALUE  array. 
Function  IGET  then  is  called  to  unpack  the  target  index  (INTAR)  and  the 
outcome  code  (CODE,  see  table  22),  which  were  packed  by  the  Simulator 
for  each  target.  These  attributes  also  are  added  to  the  VALUE  array. 

If  the  target  is  the  first  timber  of  a  collocation  island  or  an 
individual  target,  PRIMETAR  is  set  to  one  (statement  4),  ground  zero 
data  (DGX,  DGY ,  DHOB ,  AGX,  AGY ,  and  AHOB)  are  added  to  the  VALUE  array, 
and  subroutine  WRAGZ  is  called.  PRIMETAR  is  set  to  zero  for  the 
remaining  members  of  a  collocation  island.  For  all  targets,  subroutine 
ADDREP  is  called  to  complete  the  transfer  of  data  without  restoring 
default  values  (statement  8).  After  all  targets  in  the  collocation 
island  have  been  processed,  a  call  is  made  on  RESTORE  to  reset  these 
default  values  and  control  is  return  to  READOUT, 

Subroutine  BDAMX  is  illustrated  in  figure  65. 
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Table  22.  Outcome  Code  (Attribute:  CODE)  for  BDAMX 


CODE  DESCRIPTION 

1  Target  survives 

2  No  assessment  necessary 


3  Target  killed 

4  Target  already  dead 
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Jku, 


SUBROUTINE  BOMBANDT 


PURPOSE: 

To  add  the  attributes  fgr 
to  the  VALUE  array. 

bomber  and  tanker  events 

ENTRY  POINTS: 

BOMBANDT 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BCOKLS ,  EUITAPE ,  EDITERM, 

HISTOUT,  PROCESS',  TAPETYPE 

SUBROUTINES  CALLED: 

ADDATA,  BOMBFX,  CHANGE 

CALLED  BY: 

READOUT 

Method 

BOMBANDT  begins  by  adding  to  the  VALUE  array  the  attributes  which 
apply  to  all  bomber  and  tanker  events.  These  attributes  include  the 
index  number,  vehicle  index  number,  zone  index  number,  number  of  decoys 
carried  by  the  vehicle,  altitude  index,  number  of  countermeasures 
carried  by  the  vehicle,  delay  time,  and  outcome  code  (see  table  23), 
(INDEXNO,  INDV,  ZONE,  N DECOYS,  I ALT,  NCM,  DELAY,  and  BCODE) .  For  Local 
Attrition  events,  a  flag  (IDUD)  which  indicates  whether  or  not  the 
warhead  was  a  dud  also  is  added  to  VALUE  (statement  8);  for  ASM  Launch 
events,  the  ASM  type  index  (ASMTYPE)  is  filled  into  the  ar^ay.  If  the 
event  is  not  a  bomber  or  tanker  Launch  or  Local  Attrition  event,  the 
geographic  location  (PLACE)  is  included  in  the  list  of  attributes 
added  (statement  9).  Subroutine  ADDATA  then  is  called  if  the  vehicle 
survived  the  event  (statement  1);  otherwise  a  cal 7  is  made  on  subroutine 
BOMBFX  (statement  2).  Upon  return  from  either  subroutine,  control 
reverts  to  READOUT. 

Subroutine  BOMBANDT  is  il  ustrated  in  figure  66. 
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Table  23. 


Bomber  and  Tanker  Outcome  Codes 
(Sheet  1  of  2) 


NBCODB 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 
27 


DESCRIPTION 

Success 

Launch  base  dead 

Takeoff  abort 

Refuel  abort 

No  tanker.s  available 

Penetrate  enemy  territory 

Leave  enemy  territory 

Killed  by  area  attrition 

Killed  by  local  attrition 

Killed  by  local  attrition  after 
warhead  release 

ASM  killed  by  local  attrition 

Tanker  abort  in  refuel  area 

Departure  of  full  tanker 

Random  abort 

ASM  launch  abort 

Not  used 

Recovery  base  dead  on  arrival 
Scheduled  splash 

Abort  on  first  of  two  refuelings 

No  tankers  on  first  of  two 
refuelings 

No  live  recovery  base  at 
depenetration  time 

Recovery  base  saturated 

Killed  after  recovery 

Killed  after  recovery  at  home  base 

Recovery  at  home  base 

Home  recovery  base  dead  on  arrival 

Arrival  of  ASM  at  target 
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/ 


|  r 

F  ;■  Table  23.  (cont.) 

?'■  j  (Sheet  2  of  2) 


NBCODR 

DESCRIPTION 

28 

Successful  first  of  two 

refuelings 

29 

Refuel  abort,  alternate 
return  home 

mission 

30 

No  tankers  available,  alternate 
mission  return  home 

£ 


Fig.  66.  Subroutine  BOMBANDT 
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SUBROUTINE  BOMBFX 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COIWON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  translate  events  which  were  planned  but  did 
not  occur  because  of  bomber  or  tanker  failure. 

BOMBFX 

None 

EDITAPE,  EDITERM,  IIISTOUT,  PROCESS 
ADDREP,  CHANGE,  RESTORE 
BOMBANDT 


Method 


BOMBFX  begins  by  calling  subroutine  ADDREP  to  output  the  information 
already  obtained  by  BOMBANDT  for  the  event  before  it  failed.  A  loop  then 
is  entered  to  add  the  attributes  associated  with  events  which  had  been 
planned  but  never  teak  place  (statement  10) .  For  all  bomber  and  tanker 
events,  except  ASM  Launches,  the  time  increment,  place  index,  and  event 
number  remain  in  the  History  Table  which  was  generai-cd  by  Lire  Simulator 
(under  TINCN,  INDPN,  and  INDEN,  respectively  (statement  13)).  In 
addition,  a  warhead  type  index  which  is  required  for  Local  Attrition 
events  is  stored  in  a  separate  Warhead  Table  (NWTYPEN) (statement  5). 

As  each  event  except  an  ASM  Launch  is  encountered,  the  above  information 
is  retrieved  ar.d  added  to  the  VALUE  array  (TIMEN,  EVENTN,  WHDTYPEN,  and 
PLACEN) .  The  item  then  is  output  by  calling  subroutine  ADDREP  (statement  11). 

For  an  ASM  Launch  event,  the  ASM  type  index  (ASMTYPE)  is  stored  in  the 
History  Table  location  otherwise  reserved  for  the  place  index  (INDPN). 

In  addition,  the  Launch  event  always  is  followed  by  a  Local  Attrition 
event  for  which  the  event  number  has  not  been  specified.  Therefore, 
whenever  an  ASM  Launch  event  is  encountered,  the  attribute  ASMTYPE  is 
changed  to  the  index  stored  under  INDPN  (statement  12) ,  and  the  Local 
Attrition  event  number  (8)  is  placed  in  the  next  location  of  INDEN.  The 
processing  continues  as  above  until  all  items  in  the  History  Table  have 
been  considered.  Subroutine  RESTORE  then  is  called  to  reset  the  default 
values  and  control  is  returned  to  BOMBANDT. 

Subroutine  BOMBFX  is  illustrated  in  figure  67. 
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SUBROUTINE  CLAUNX 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  add  attributes  for  a  Complete  Launch  event  to 
the  VALUE  array. 

CLAUNX 

None 

ED1TERM,  EDITAPH ,  IIISTOUT,  PROCESS 

ADDATA,  CHANGE 

READOUT 


Method 


CLAUNX  adds  the  attributes  which  represen i  index  number,  vehicle  index 
number,  target  index  number,  warhead  type  index,  and  the  outcome  code 
(INDEXNO,  IN'DV,  INTAR,  WHDTYPE,  and  CODE)  to  the  VALUE  array  for  each 
Complete  Launch  event.  Subroutine  ADDATA  then  is  called  to  complete  the 
transfer  of  information,  and  control  is  returned  to  READOUT. 

Subroutine  CLAUNX  is  illustrated  in  figure  68. 


Fig.  68.  Subroutine  CLAUNX 


/ 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


SUBROUTINE  ENDREEL 

To  enable  the  HISTDATA  to  be  continued  on  a 
second  reel  if  the  first  reel  cannot  contain  the 
required  data. 

ENDREEL 

None 

EDITAPE,  EDITERM,  ITP,  PROCESS,  TAPE.S 
CHANGE,  ENDDATA,  OUTITEM,  SETWRITE 
ADDATA 


Method 

Whenever  more  than  one  million  words  have  been  written  on  the  HISTDATA 
currently  being  output,  ENDREEL  is  called  to  terminate  that  tape  and  to 
output  a  message  to  the  operator  to  mount  a  new  reel.  Control  is  returned 
to  ADDATA. 

Subroutine  ENDREEL  is  illustrated  in  figure  69. 


242 


dyab 


SUBROUTINE  GENOUTPI 


PURPOSE: 

To  provide  summary  table  row  labels 
the  printing  of  the  bomber,  missile 
summary  tables. 

and 

and 

control 

tanker 

ENTRY  POINTS: 

GENOUTPT 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BCDKLS ,  OUTPUTSM,  TBLSIZE,  TITLES 

SUBROUTINES  CALLED: 

GENPRIN 

CALLED  BY: 

READSUM 

Method 


Subroutine  GENOUTPT  (figure  70)  contains  data  statements  which  establish 
the  row  labels  printed  for  the  bomber,  missile  and  tanker  summary  data 
accumulated  by  subroutine  GENTBLES.  Subroutine  GENPRIN  is  called  to 
print  the  summary  tables  for  each  of  those  classes.  The  following 
information  is  printed. 


1 .  For  each  bomber  type 


a. 

Number 

of 

b . 

Number 

of 

c . 

Number 

of 

d. 

Number 

of 

e . 

Number 

of 

f . 

Number  of 
scheduled 

g. 

Number 

of 

♦Applies  to  last  scheduled  refueling;  i.e,,  to  bombers  to  refuel  only 
once  and  to  the  second  refueling  event  when  bombers  refuel  twice. 


244 


1 

h.  Number  of  aborts  on  refueling* 

i.  Number  of  times  tankers  not  available* 

j .  Number  refuel  abort  bombers  returned  to  home  base** 

k.  Number  of  bomber  aborts  outside  enemy  territory 

l.  Number  of  bombers  which  entered  (penetrated)  enemy  territory 

m.  Number  of  kills  by  area  attrition 

n.  'Number  of  kills  by  local  attrition 

o.  Number  of  ASM  kills  by  local  attrition 

p.  Number  of  aborts  in  enemy  territory 

q.  Number  of  bombers  with  scheduled  splashes  (aborts) 

r.  Number  of  bombers  which  depenetrate  enemy  territory 

s.  Number  of  bombers  which  recover 

t.  .  Number  of  times  recovery  base  dead 

u.  Number  of  times  no  live  base  available  at  depenetration  time 

v.  Number  of  times  recovery  base  saturated 

w.  Number  of  bombers  killed  after  recovery 

X.  Number  of  bombers  returned  to  home  base 

y.  Number  of  recoveries  at  home  base 

z.  Number  of  times  base  dead  at  recovery  time 

aa.  Number  of  bombers  killed  after  recovery  at  home  base 
2.  For  each  missile  type 

a.  No  Tiber  of  attempted  launches 

*Apniies  to  last  scheduled  refueiing;  i.e.,  to  bombers  to  refuel  only 
ore?:  and  to  the  second  refueling  event  when  bombers  refuel  twice. 

**At>piies  to  last  scheduled  refuc . ing.  Bombers  aborting  the  first  of  two 
scheduled  refuelings  are  returned  to  home  base  but  are  not  counted  here. 
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b.  Number  not  in  commission 

c.  Number  of  dead  silos 

d.  Number  not  in  commission,  dead  silo 

e.  Number  of  nondestructive  aborts 

f.  Number  of  destructive  aborts 

g.  Number  of  powered  flight  failures 

h.  Number  of  successful  launches 

i.  Number  unused 

j.  Number  destroyed  at  launch 

k.  Number  of  weapons  entering  area  defenses 

l.  Number  of  weapons  entering  terminal  defenses 

m.  Number  of  weapons  penetrating 

n.  Number  of  weapons  detonating 
3.  For  each  tanker  type 

a.  Number  of  successful  launches 

b.  Number  of  unsuccessful  launches,  dead  base 

c.  Number  of  unsuccessful  launches  which  were  rescheduled 

d.  Number  of  aborts  outside  refueling  area 

e.  Number  of  entries  into  refueling  area 

f.  Number  of  aborts  inside  refueling  area 

g.  Number  of  full  tankers  leaving  refueling  area 

h.  Number  of  empty  tankers  leaving  refueling  area 

i.  Number  of  recoveries 

j.  Number  of  times  base  saturated 
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k.  Number  of  times  recovery  base  dead 

l.  Number  of  times  no  live  base  available  at  depenetration  time 

m.  Number  of  tankers  killed  after  recovery 

n.  Number  of  tankers  with  scheduled  splash  (abort) 
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SUBROUTINE  GENPRIN 


PURPOSE : 

To  print  the  bomber,  tanker,  and  missile 
standard  summaries. 

ENTRY  POINTS: 

GENPRIN 

FORMAL  PARAMETERS; 

A  -  Array  to  be  printed 

VC  -  Array  of  column  labels  for  each  side 

NCT  -  Number  of  entities  in  VC 

TITLE  -  Array  containing  row  labels 

TITLE  -  Array  containing  table  header  label 

M  -  Number  of  rows 

N  -  Number  of  columns 

NA  -  Name  of  array  which  has  variable 

dimensions 

COMMON  BLOCKS: 

ST 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

GENOUTPT 

Method 


GENPRIN  prints  tables  from  data  arrays  accunr.lated  by  GENTBLES  and 
labeling  information  supplied  by  GENOUTPT.  If  the  table  consists 
entirely  of  zeros,  it  is  not  printed.  More  than  one  page  is  printed  for 
each  table  if  the  number  of  columns  exceeds  the  maximum  allowed  per 
page  (MC0L4R0W) <  The  subroutine  prints  the  tables  for  both  sides  and  then 
returns  control  to  GENOUTPT. 

Subroutine  GENPRIN  is  illustrated  in  figure  71. 
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Fig.  71.  Subroutine  GENPRIN 


SUBROUTINE-  GENTBLES 


PURPOSE  :  To  examine  each  item  which  has  been  written  on 

the  UISTDATA  tape,  determine  which  table  entries 
are  affected,  and  then  update  these  entries. 

ENTRY  POINTS:  GENTBLES 


FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  BCDKLS ,  EDITAPE,  EDITERM.  OUTPUTSM,  PROCESS, 

TBLSIZE 


SUBROUTINES  CALLED:  ADDIN' ,  SPCTBL 

CALLED  BY:  ADDATA 


Method 


On  the  first  call  to  GENTBLES,  all  arrays  are  cleared.  Thereafter, 
clearing  is  bypassed.  SPCTBL  is  called  to  store  data  in  the  other 
standard  summaries,  since  GENTBLES  is  concerned  only  with  the  bomber, 
tanker,  and  missile  summaries. 

The  index  of  the  appropriate  side  is  found  (statements  90  and  91) ,  and 
the  indices  of  the  entries  which  must  be  updated  are  determined  by 
examining  EVENTN,  EVENT,  and  BCODE  for  bombers  and  tankers  (statement 
800),  and  MCODE  for  missiles  (statement  SOI).  Subroutine  ADDIN  is 
called  to  increment  the  table  entries  affected  (statements  200,  300, 
and  600) . 

Subroutine  GENTBLES  is  illustrated  in  figure  72. 
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To  Store  The  Result  In 
The  Print  Array 


-'U 


Fig.  72.  Subroutine  GF.NTBLI;S 
2S2 


SUBROUTINE  INZERO 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  replace  each  BCD  blank  in  a  word  with  a  BCD 
zero. 

INZEPO 

M  -  Word  in  which  blanks  arc  to  be  replaced  with 
zero 


None 

None 

WRAGZ 


Meth od 


The  eight  characters  of  the  parameter  word  are  successively  masked  and 
compared  with  the  octal  code  for  a  blank.  When  a  match  is  found,  that 
character  is  replaced  by  the  octal  code  for  a  zero.  When  all  eight 
characters  have  been  processed,  control  returns  to  the  calling  program 
with  the  modified  word  in  the  A  register. 

The  octal  codes  for  the  BCD  characters  blank  and  zero  are  found  implicitly 
from  a  data  statement. 

Subroutine  INZERO  is  illustrated  in  figure  73, 
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Do  Ror 

All  Characters 
In  Word 


RETURN 


SUBROUTINE  MATTRITX 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
C0M40N  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  transfer  information  for  Area  and  Terminal 
Attrition  events  from  the  HISTOUT  array  to  the 
VALUE  array. 

MATTRITX 

None 

EOITAPH ,  EDITHRM,  UISTOUT,  PROCESS 

ADDATA,  CHANGE 

READOUT 


Method 


MATTRITX  adds  the  index  number,  vehicle  index  number,  target  index  number, 
warhead  type,  number  of  weapons,  number  of  warheads,  and  number  of 
interceptors  allocated  to  the  VALUE  array  (INDEXNO,  INDV,  INTAR,  WHDTYPE , 
NWPNS,  NWHDS,  and  NAL)  .  For  Area  Attrition  events,  the  number  of 
terminal  aim  points,  geographic  location,  number  of  surviving  war¬ 
heads,  and  outcome  code  (TATM,  PLACE,  NWHDS,  and  CODE)  then  are  filled 
(statement  10);  for  Terminal  Attrition  events,  the  number  of  warheads 
which  penetrate  and  the  number  of  warheads  which  detonate  are  added 
(NPEN  and  NDET)  (statement  20) .  The  transfer  of  data  to  VALUE  is 
completed  by  calling  subroutine  ADDATA,  and  control  is  returned  to 
READOUT. 

Subroutine  MATTRITX  is  illustrated  in  figure  74. 
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Change  Attributes 
TAIM,  PLACE, 
MWHDS,  CODE 


SUBROUT  IN!!  MLAUNX 


! 


PURPOSE: 

P.NTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALL!!!): 
CALLED  BY: 


To  transfer  attributes  which  describe  missile 
Launch  events  to  the  VALUE  array, 

MLAUNX 

None 

EDITAPE,  EDITHRM,  IIISTOUT,  PROCESS 
ADD  AT  A,  ADDREP,  CHANGE.,  RliSTORI! 

READOUT 


Method 


MLAUNX  transfers  to  the  VALUE  array  the  warhead  type  (WHDTYPB)  and  the 
status  of  the  command  and  control  center  (contained  in  NCODE) .  If  NCODE 
indicates  that  a  command  and  control  failure  has  occurred,  the  total 
number  of  weapons,  the  index  number,  the  vehicle  index  number,  and  the 
target  index  number  (INDEXNO,  INDV,  and  INTAR)  are  added  to  VALUE 
(statement  100),  subroutine  ADDATA  is  called  to  complete  the  transfer  of 
information,  and  control  is  returned  to  READOUT.  If  command  and  control  is 
in  commission,  the  attributes  representing  thd  index  number  (INDEXNO), 
the  target  index  number  (INTAR),  the  vehicle  index  number  (INDV),  and  the 
outcome  code  (MCODE,  see  table  24)  are  filled  for  each  separate  missile 
launch  (statement  10) .  As  each  launch  is  encountered,  subroutine  ADDREP 
is  called  to  complete  the  processing  of  that  item.  Then,  when  all  launches 
in  the  event  have  been  considered,  a  call  is  made  on  RESTORE  to  reset 
the  default  values,  and  control  is  returned  to  RE  Awin'. 

Subroutine  MLAUNX  is  illustrated  in  figure  75. 
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Table  24. 


Outcome  Codes  (Attribute:  MCODIi)  for  MLAUNX 


MCODb 

0 

1 

2 

3 

4 

5 

6 
1 

8 


INSCRIPTION 
Missiles  not  used 
Mot  in  commission 
Silo  dead 
Launch  abort 

Silo  destroyed  on  launch  abort 
Failure  in  powered  flight 
Success 

Missile  planned  for  later  launch 
event 

Not  in  commission  and  silo  dead 
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SUBROUTINE  MORE DATA 


PURPOSE :  To  retrieve  information  not  available  to  the 

Simulator  from  the  indexed  data  base  (INDEXDB). 

ENTRY  POINTS:  MO RE DATA 


FORMAL  PARAMETERS :  None 


COMMON  BLOCKS:  ASM,  BCDKLS ,  BOMBER,  BYTYPE,  EDITAPE,  EDTTERM, 

ITP ,  KEYS,  1,  2,  3,  MAXES,  MISSILE,  MYTDENT, 
PROCESS,  TAPES,  TWORD,  WARHEAD 

SUBROUTINES  CALLED:  ABORT,  INITEDIT ,  1NPITEM ,  IPUT,  KEYMAKE ,  NEWUNIT, 

NEXTITEM,  SETREAD,  SKIPFlLE,  TERMTAPE 


CALLED  BY:  READSUM 


Method 


MOREDATA  calls  function  KEYMAKE  to  set  up  keys  for  packing  latitude  and 
longitude,  and  the  indices  to  arrays  storing  CNTRYOWN,  CN'TRYLOC,  FUNCTION, 
and  IREG.  Subroutine  SKIPFlLE  is  called  to  position  INDEXDB  to  the  file 
confining  the  breakpoint  tables.  These  are  buffered  in,  and  INDEXDB  is 
rewound.  The  directory  is  then  read  from  INDEXDB  and  copied  to  I1ISTDATA 
and  HISTACZ.  The  switch  NOUT  is  set  so  that  nothing  further  will  be 
copied  to  them  during  the  processing  of  INDEXDB  and  so  that  they  will  not 
be  terminated  at  the  conclusion  of  the  reading  of  this  tape. 

As  the  reading  of  INDEXDB  is  done,  several  arrays  are  filled:  the  class 
tables  relating  the  class  name  to  the  value  of  ICLASS,  and  the  attributes 
YIELD,  1  TRAC,  and  PDUD  for  items  in  c'ass  WARHEAD,  indexed  by  WHDTYPE. 

For  ASMs,  bombers,  and  missile  sites  for  which  ISITE  =  1,  the  CEP  is 
placed  in  arrays  CEPA,  CEPB,  and  CEPM  (statements  11,  21,  31),  respectively. 
I  terns  in  CEPA  are  indexed  by  ASMTYPE ;  items  in  CEPB  and  CEPM  arc  indexed 
by  JTYPE . 

For  ail  items  which  have  an  INDEXNO,  iatitudo  and  longitude  are  scaled 
by  100000.,  converted  to  integers  and  packed  into  one  word  through  calls 
on  IPUT  (statement  6010).  This  word  is  checked  to  sec  whether  it  already 
appears  in  KLATPK.  If  it  does  not,  it  is  added  to  the  array  (statement 
6001).  In  either  case,  the  index  of  its  position  in  KLATPK  is  packed 
into  N'DXCTY ,  indexed  as  are  all  the  following  by  INDEXNO.  The  same 
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method  is  used  to  store  the  value  of  CNTRYOWN  and  CNTRYLOC  in  KNTRY, 
FUNCTION  in  KFCN,  IRF.G  in  KRIiG,  and  the  associated  indices  in  NDXCTY. 
NDF.SIG  and  TASK  are  packed  into  one  word  and  written  with  INUliXNO  onto 
a  temporary  storage  tape. 

When  the  last  item  on  INDEXDB  lias  been  processed,  the  output  assignments 
are  restored  and  control  is  returned  to  RliADSUM. 

Subroutine  MORE DATA  is  illustrated  in  figure'  76. 
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1 

SUBROUTINE  READATA 


To  read  input  data  cards  containing  the  first 
four  sets  of  user-input  parameters. 

READATA 

None 

CMCD ,  DOAGZ ,  KNTH'RT,  STIME,  WPSYS 

None 

READSUM 


Method 

Subroutine  READATA  (figure  77)  reads  four  sets  of  user-input  parameters 
which  establish:  the  game  start  time;  the  command/ function  codes;  the 
weapon  system  codes;  and  the  parameters  which  control  the  writing  and 
printing  of  the  output  tapes  for  REST  and  SIDAC.  The  data  card  formats 
associated  with  these  parameters  are  described  in  chapter  5  of  User's 
Manual,  Volume  II  (see  Program  READSUM,  User-Tnput  Parameters). 

The  first  data  card  read,  five  integer  fields  of  10  columns,  contains 
the  game  start  time:  day,  month,  year,  hour,  and  minutes,  in  that  order. 

The  command/ function  codes  used  in  production  of  the  strike  tapes 
AGZBLUSW,  AGZBLURO,  AGZREDSW ,  and  AGZREDRO  are  read  from  the  next  two 
data  cards.  Each  card  column  corresponds  to  a  type  delivery  vehicle 
(type  refers  to  the  type  number  as  shown  in  the  breakpoint  tables 
output  by  program  INDEXER).  This  allows  the  command/function  code,  an 
integer  value  1  through  0,  to  be  input  for  a  maximum  of  160  types. 

Next,  four  data  cards  arc  read  which  contain  the  weapon  system  codes 
to  be  associated  with  each  command/ function  code  when  preparing  the 
strike  tapes  fo-  REST  (AGZREDRO  and  AGZBLURO).  The  first  two  cards 
contain  up  to  nine  weapon  system  codes  (three  alphameric  characters) 
for  side  Blue;  the  last  two  contain  the  codes;  e.g.,  LRA  for  long-range 
aviation,  for  side  Red. 

The  next  card  read  lias  two  fields:  the  first  contains  the  parameter 
AGZTAPES  if  the  output  tapes  for  REST  and  SIDAC  arc  to  be  written; 
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PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS; 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


the  second  has  the  word  PRINT  if  the  strike  tapes  are  to  be  printed. 
A  blank  field  signifies  that  the  option  is  not  requested.  A  message 
is  printed  reflecting  the  request. 


SUBROUTINE  READOUT 


PURPOSE: 

To  transfer  information  for  an  event  from  che 

HI STARE  to  the  VALUE  array. 

ENTRY  POINTS: 

READOUT 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

BYTYPE,  EDITAPE,  EDITERM,  HISTOUT,  ITP,  KN'fWRT , 
PROCESS,  ST,  TAPES,  TWORD 

SUBROUTINES  CALLED: 

ABORT,  3DAMX ,  BOMBANDT,  CHANGE,  CLAUNX,  MATTRITX, 
MLAUNX,  NEWUNIT,  PRITEM,  RDARRAY ,  R.DWORD ,  TERMTAP 

CALLED  BY: 

READSUM 

Method 


READOUT  begins  by  reading  the  number  of  words  specified  for  this  event 
on  the  HI STARE  (statement  100) .  Since  the  array  (HISTOUT)  into  which 
these  data  will  be  read  can  accommodate  only  200  items,  the  number  of 
words  for  each  event  is  checked.  If  more  than  200  words  are  specified, 
information  for  the  last  event  processed  is  printed,  the  first  200  words 
for  this  event  arc  read  into  HISTOUT  and  printed,  and  the  run  is  aborted. 
Otherwise,  the  information  is  read  into  HISTOUT  for  transfer  to  the 
VALUE  array.  Attributes  which  arc  specified  for  all  events,  including 
SIDE,  TIME,  EVENT,  IREG,  1 ALERT,  TYPE,  CLASS,  ICLASS,  and  ITYRE , 
immediately  are  placed  in  the  appropriate  attribute  in  the  VALUE  array. 
Then,  depending  on  the  type  of  event  being  processed  (see  table  25)  , 
one  of  the  following  subroutines  is  called  to  transfer  information  which 
pertains  to  the  kind  of  event: 


MLAUNX 

Missile  Launch  Event 

BOMBANDT  - 

Bomber  and  Tanker  E.vents 

CLAUNX 

Complete  Launch  Event 

MATTRITX  - 

Missile  Attrition  Events 

BDAMX 

Burst/Damage  Event 

Event  1 

Events  2,  4,  5,  7,  8,  11-17, 
and  19-21 

Event  3 

Events  9,  18 

Event  10 
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/ 

After  control  is  returned  from  one  of  the  above  subroutines,  the 
reading  of  the  HISTAPE  continues.  When  the  last  item  has  been  processed, 
control  is  returned  to  READSUM. 

Subroutine  READOITT  is  illustrated  in  figure  78. 
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Tabic  25.  Event  Numbers 


EVENT 


DESCRIPTION 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


12 

13 

14 

15 

16 

17 

18 

19 

20 

21 


Missile  launch 

Bomber  or  tanker  launch 

Missile  complete  launch 

Bomber  refuel 

Enter  zone 

Zone  status 

Area  attrition 

Local  attrition 

Terminal  ballistic  missile 
defense 

Burst  damage 

Tanker  enter  refuel  area 

Tanker  leave  refuel  area 

Bomber  or  tanker  abort 

ASM  launch 

Decoy  launch 

Recovery 

Change  altitude 

Area  ballistic  missile  defense 

Check  after  recovery 

Determine  time  of  naval 
attrition 

Naval  attrition 
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Fig,  78.  Subroutine  READOUT 
(Sheet  1  of  2) 
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SUU ROUT  INI;  SPCTI1L 


PURI’OSP. :  l'o  process  each  item  which  has  boon  written  on 

IIISTDATA  and  update  the  cumulative  A(1Z  and 
megaton  tallies  when  appropriate. 


liNTRY  POINTS: 

FORMAL  PARAMETERS ; 
COMMON  BLOCKS: 
SUBROUT LNliS  CALhhO: 
CAL  LK 11  BY: 


Sl’CTBL 

None 

ilHTAI’l: ,  HDTTl-RM,  IRITIS, 

ABORT 

CiNTBI.i.S 


MAXIiS,  PROCHSS  ,  Sl’i.ClAL 


Method 


On  the  first  call,  the  time  intervals  which  become  the  columns  of  the 
tables,  and  the  region  names  and  country  group  names  which  become  the 
row  labels,  are  road  (statement  SOOU) .  Thereafter,  this  section  of  the 
subroutine  is  bypassed. 

If  the  item  being  processed  is  not  a  prime  target  (PklMHTAR  -  II, 
control  is  returned  to  C.HNTItLHS .  Otherwise,  for  the  current:  side, 
region,  country  group,  and  :imc,  the  number  of  AOZs  is  incremented  and 
the  delivered  megatonnage  is  accumulated  in  the  appropriate  entries  in 
the  standard  summary  tables  (statement  43(1). 

Subroutine  SPCTBI.  is  illustrated  in  figure  79. 
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Fig,  79.  Subroutine  SPCTBL 
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SUBROUTINE  SPCTBLPT 


PURPOSE:  To  print  the  AGZ  and  megatonnage  standard 


summaries  accumulated  by  SPCTBL, 

ENTRY  POINTS: 

SPCTBLPT 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

SPECIAL 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

READS UM 

Method 


This  subroutine  prints  the  tables  of  data  accumulated  by  subrautir 
SPCTBL.  These  tables  by  RED  and  BLUE  are  the  cumulative  number  of  AGZs 
for  various  regions,  country  groups,  and  time  intervals  as  well  as  the 
yield  delivered  for  various  regions,  country  groups,  and  time  intervals. 

Subroutine  SPCTBLPT  is  illustrated  in  figure  80. 
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1 


Do  For 
Each  Sid 


I 


Oo 


I 


Done 


Print  Cumulative 
Number  Of  AGZs 
Delivered  By  Side, 
Time,  And  Region 


Print  Cumulative  Yield 
Delivered  By  Side, 
Time  And  Region 


1 


Do  For 
Each  Side 


"IDone/' 

-W  RETURN  J 


I  Print  Cumulative, 
Number  Of  AGZs 
/Delivered  By  Side,/ 
Time,  And 
Country  Group 


/print 
L  /  Yield 
^  1 By  Side 
/  Count 


I 


Print  Cumulative 
Yield  Delivered 
Side,  Time,  And/ 
Country  Group 


Fig.  80.  Subroutine  SPCTBLPT 


275 


SUBROUTINE  WRAGZ 


PURPOSE :  To  convert  data  for  Burst/Damage  events  to  the 


form  which  is  required  tor  input  to  the  damage 
assessment  models  REST  and  SIDAC,  ar.d  to  write 
the  associated  output  tapes. 

ENTRY  POT NTS: 

WRAGZ,  WRAGZF 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

1,  2,  3,  ASM, 
EDITERM,  ITP, 
STIME,  TAPES, 

BOMBER,  CMCD ,  DOAGZ ,  EDITAPE , 
KEYS,  MAXES,  MISSILE,  PROCESS, 
WARHEAD,  WPSYS 

SUBROUTINES  CALLED: 

I GET,  INZERO 

CALLED  BY: 

BDAMX ,  READSUM 

Method 

WRAGZ  first  examines  the  user-input  parameter  to  determine  if  strike 
tape  production  has  been  requested.  If  it  lias  not,  control  returns  to 
the  calling  program,  (statement  401).  WRAGZ  converts  the  actual  ground 
zero  offset  distances  (AGZ ,  AGY)  from  SOths  of  miles  to  degrees  of  lati¬ 
tude.  In  order  to  accomplish  this,  it  is  necessary  to  retrieve  the  prime 
target  latitude  (XLAT)  and  longitude  (XLONG)  which  were  packed  by  sub¬ 
routine  MOREDATA.  After  AGZ  and  AGY  have  been  changed  to  degrees,  they 
are  added  to  XLAT  and  XLONG,  respectively,  to  find  the  actual  point  on 
the  earth  at  which  the  burst  occurred  (statements  10-38) .  The  appropriate 
directional  labels  (north  or  south,  east  or  west)  are  assigned,  and  the 
coordinates  are  separated  into  degrees,  minutes,  and  seconds.  The  burst 
also  is  labeled  as  being  either  an  air  (A)  (statement  40)  or  a  ground  fG) 
burst  (statement  41) . 

The  time  which  has  elapsed  between  this  Burst/Damage  event  and  the 
beginning  of  the  game  now  is  computed  by  adding  the  current  time  (TIME) 
to  the  game  starting  time  and  converting  the  result  to  minute,  hour, 
day,  month,  and  year  (statements  350  to  199) .  This  information  is 
packed  into  twp  words  (IDATIME)  (statement  222)  and  processed  by  function 
INZERO  to  replace  all  blanks  with  zeros.  Similarly,  the  latitude  and 
longitude  data  (degrees,  minutes,  seconds,  and  direction)  and  the  warhead 
type  index  are  packed  into  the  words  LATX,  LONGX,  and  IWHD,  respectively, 
and  are  processed  by  INZERO.  The  resulting  information,  together  with 
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the  strike  designation  (IFS-S)  ,  target  index  (INTAR) ,  and  height  of  burst 
(A  or  G)  are  written  onto  either  AGZBLUS  or  AGZREDS  in  card  image  formal 
(see  tables  18  and  19).  Control  then  is  returned  to  BDAMX . 

Entry  WRAGZF  is  called  once  from  READStJM  to  finish  writing  the  strike 
tapes  it  this  option  has  been  requested.  First,  DESIG  and  TASK  for 
each  INDEXNO  are  read  from  a  temporary  storage  file  written  by  MOREDATA. 
Then,  AGZBLUS  and  AGZREDS  are  road,  and  the  strike  card  images  augmented 
by  DESIG  and  TASK  are  written  to  AGZBLUSW  and  AGZREDSW,  respectively. 
AG7BLU31.','  and  AGZREDSW  are  then  read,  the  weapon  code  is  added,  and 
AGZBLURO  and  AGZREDRO  are  written.  The  card  images  are  printed  if  this 
option  has  been  requested. 

Subroutine  WRAGZ  is  illustrated  in  figure  81. 
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Fig.  81.  (cont.) 

(Sheet  3  of  4) 
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Fig.  81.  (cont.) 

(Sheet  4  of  4) 
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CHAPTER  4 
PROGRAM  TABGEN 


PURPOSE 


Program  TABGEN  is  a  general-purpose  report  generator  which  summarizes 
the  HISTDATA  or  the  HISTAGZ  tape  on  the  basis  of  user-input  parameters. 
In  contrast  with  READSUM,  the  output  of  the  jrogram  is  not  fixed  but  is 
as  variable  as  the  contents  of  HISTDATA  and  the  summaries  requested  by 
the  user  can  make  it.  An  understanding  of  the  HISTDATA  tape  and  a  know¬ 
ledge  of  which  summaries  are  meaningful  is  essential. 

It  is  intended  that  the  user  be  able  to  examine  in  detail  only  specified 
portions  of  the  output  data  base  or  to  generate  overall  summaries  by 
SIDE,  TYPE,  or  CLASS  or  any  other  defined  attribute  in  the  data  base. 


INPUT  FILES 


TABGEN  uses  as  input  either  the  HISTDATA  or  the  HISTAGZ  tape.  These 
tapes  are  output  from  program  READSUM.  HISTDATA  is  the  full  output  of 
every  simulated  event  from  program  SIMULATE;  HISTAGZ  is  a  subset  of  this 
tape  containing  only  Burst/Damage  events. 

These  tapes  have  attribute-value  pairs  filled  according  to  the  type  of 
event.  These  attributes  can  be  counted,  added,,  or  used  as  row  or 
co’umn  labels. 

The  user-input  parameters  specify  the  page,  row,  and  columns  which  are 
to  be  summarized  as  well  as  other  criteria  to  accept  or  reject  an  item. 


OUTPUT  FILES 


There  are  no  ouput  files  from  program  TABGEN.  The  output  consists  only 
of  the  user-specified  summary  tables. 
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CONCH PT  OF  OPHRATION 


TABGEN  allows  the  user  to  specify  tables  to  be  printed  rather  than  to 
have  standard  summaries.  However,  this  choice  is  at  the  expense  of 
multipasses  through  IIISTDATA  or  IIISTAGZ.  It  is  also  necessary  to  have  a 
thorough  knowledge  of  the  contents  of  these  tapes. 

Tables  26  through  31  list  the  attributes  which  are  defined  for  each  type 
of  event  output  by  SIMULATE.  These  attributes  have  been  filled  in 
program  READSUM  by  using  the  NHISTOUT  arrays  from  tape  IIISTAPE,  the 
breakpoint  tables,  weapon  and  payload  tables,  and  other  information  such 
as  FUNCTION  and  CNTRYOWN  found  on  INDFXDB . 

The  user  must  choose  his  output  page  from  the  list  of  available  attri¬ 
butes.  The  columns  might  be  ranges  of  the  value  of  the  attribute  TIME. 
The  rows  could  be  values  of  IREG  and  the  values  within  the  table  the 
accumulation  of  YIELD.  Beyond  that,  TYPE  could  be  used  to  produce  a 
separate  table  for  each  type,  and  as  the  last  level  SIDE  could  be  speci¬ 
fied  to  produce  a  set  of  reports  for  each  value  of  SIDE. 


SUMMARY  OF  SUBROUTINES  PERFORMING  MAJOR  FUNCTIONS 


The  calling  hierarchy  of  major  subroutines  in  the  program  is  shown  in 
figure  82. 

Subroutine  INITIL  .initializes  program  variables  and  clears  arrays. 

Subroutine  SETUP  reads  and  interprets  all  the  user-input  parameters  and 
sets  all  the  arrays  and  variables  which  will  control  the  accumulation  of 
data  and  the  final  printing  of  the  pages. 

Function  INTREL  sets  a  switch  on  the  basis  of  the  user-supplied  parame¬ 
ters  so  that  the  proper  selection  logic  will  be  done  on  the  values  of 
attributes  in  the  data  base  input  item. 

Subroutine  TRUTH  examines  each  item  according  to  the  criteria  specified 
by  the  user  and  interpreted  by  SETUP  and  determines  which,  if  any, 
tables  are  affected.  It  calls  NVALFIND  to  perform  the  logical  compari¬ 
sons  required, 

Subroutine  CYCLER  controls  the  paging  or  cycling.  It  examines  the 
attribute  used  for  paging  to  determine  if  the  page  is  an  old  one  or  one 
newly  encountered. 
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Table  26.  Attributes  Filled  for  All  Hvcnts 


I CLASS 

PARRIVE 

IREG 

CLASST 

TIME 

EVENT 

CLASS 

PDUD 

IALERT 

TYPE 

FUNCTION 

CNTRYLOC 

I  TYPE 

SIDE 

TYPET 

CNTYLOCT 

YIELD 

CNTRYOWN 

CNTYOWNT 

LAT 

LONG 

Table  27,  Attributes  Filled  for  Missile  Launch  F, vents 


WIlDTYPli  CODE  INDEXNO 

INTAR  TNDV  MCODE/NWPNS* 


*MCODE  filled  when  no  command  and  control  failure;  NWPNS  if  command  and 
control  failure. 


Table  28.  Attributes  Filled  for  Bomber  and  Tanker  Events 


INDEXNO 

INDV 

ZONE 

NDF.COYS 

I  ALT 

NCM 

DELAY 

BCODE 

I  DUD 

ASMTYPE 

PLACE 

1 OTHER 

TIMEN 

EVENTS' 

ASMTYPE 

PLACEN 

WHDTYPKN 
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Table  29.  Attributes  Filled  for  Complete  Launch  Events 


IMDF.XNO  INDV  INTAR  WHDTYPF, 

CODF, 


Table  30.  Attributes  Filled  for  Ballistic  Missile  Defense  Events 


NWPNS 

INTAR 

CODE 


NWHDS 

W1IDTYPE 

PLACE/NPEN 


INDEXNO 

NAL 

NWHDS/NDET 


INDV 

TAIM 


‘PLACE,  NWHDS  are  filled  for  terminal  attrition;  NPEN,  NDET  are  filled 
for  area  attrition. 


Table  31.  Attributes  Filled  for  Burst/Damage  Events 


PRIMF.TAR 

INDEXNO 

INDV 

WHDTYPE 

INTAR 

CODE 

DGX 

DGY 

DHOB 

AGX 

AGY 

AHOB 
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Subroutine  ROWFIND  allows  either  a  prespecified  list  of  rows  or  a 
dynamically  generated  one.  In  the  first,  an  item  is  placed  in  the 
proper  row  if  there  is  a  corresponding  value  of  the  row  attribute  in 
the  table.  In  the  second,  a  new  row  is  generated  whenever  a  new  value 
of  the  row  attribute  is  encountered. 

i 

Subroutine  COLFIND  determines  whether  an  item  belongs  in  a  particular 
column  according  to  one  of  three  user-specified  criteria:  the  value  of 
the  column  attribute  must  be  a  member  of  a  list;  the  value  of  the  .attri 
bute  may  be  placed  in  the  list  if  not  already  present;  or  the  value  is 
compared  with  lists  of  ranges  of  values  to  find  the' proper  column. 

If  an  item  has  been  found  to  belong  to  a>page,  row,  and  column,  that 
particular  entry  is  incremented  either  by  one'  or  by  the  actual  value  of 
the  attribute  according  to  the  user-specified  parameters. 

Subroutine  PRINTER  prints  all  of  the  summary  tables. 


COMMON  BLOCK  DEFINITIONS 


External  Common  Blocks 

■ — ..  I  i  ' 

External  common  blocks  are  described  in  the  .Programming  Specifications 
Manual,  Volume  I,  Data  Input  Subsystem,  Part  A.  They  are  /EDITAPE/, 
/F.DITERM/ ,  /PROCESS/,  /ITP/,,  and  /DIRECTRY/. 


Internal  Common  Blocks 


The  internal  common  blocks  used  by  program  TABGEN  are  shown  in 
table  32. 
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Table  32.  Program  TABGEN  Internal  Common  Blocks 
(Sheet  1  of  4) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

001 

TABLE (NTABLE) 

Storage  of  all  table  entries 

XVAL(MVAL) 

Cell  to  allow  fixed  or  floating 
addition  into  table 

ATT IN D 

I CYCLE 

Index  of  paging  attribute  in  directory 

I  ROW 

Index  of  row  attribute 

IADD 

Index  of  tabled  attribute 

I  COL 

Index  of  column  attribute 

JSIDE 

Index  of  attribute  SIDE 

COLS 

NCOL 

Number  of  column  identifiers,  if 
specified  (attribute  values) 

RANGES 

List  of  allowed  attribute  values  or 
range  of  values 

COLVAR 

MCOL 

Number  of  columns  on  each  logical  page 

NAMECOL 

Name  of  each  column  for  each  logical 
page 

COMMAND 

NCOMM 

Number  of  commands  recognized 

I COMMAND 

List  of  commands 

CYCS 

NAME CYC 

Value  of  page  attribute  for  each  cycle 

NUMCYC 

Number  of  cycles 

CYCS IDE 

Value  of  SIDE  for  each  cycle 

FORMATS 

INWORD 

INPUT  number 

NFORMT 

Eight-column  format 

I  NABS 

Absolute  value  of  INWORD 

IF2X 

Set  to  1  to  augment  NFORMT  with  2 X 
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Table  32. 


BLOCK 

VARIABLE  OR  ARRAY 

HEAD 

NIIEADQ 

HEAD 

1NITR0W 

NUMROWS 

INITROW 

MXR01V 

ITIME 

ITIME 

NTEMP 

JXCODE 

TAB CODE 

IFWHAT 

JXFORM 

ROW FORM 

TAB FORM 

COLFORM 

CYC FORM 

PASS 

NS I DENOW 

NPASS 

ROWS 

NAME ROW 

NUMROW 

SETS 

SETNAME 

(cont .) 

(Sheet  2  of  4 ) 

DESCRIPTION 

Number  of  page  titles 
Page  titles 

Number  of  allowed  row  values  if 
specified 

List  of  allowed  row  values 
Maximum  number  of  rows 

Index  of  attribute  TIME 
Temporary  storage  location 

Indicates  fixed  or  floating  values 
in  table 

Indicates  whether  or  not  user  has 
specified  format  of  table  values 

Format  of  row  attribute 
Format  of  table  attribute 
Format  of  column  attribute 
Format  of  paging  attribute 

Current  side  if  two  passes  required 
Number  of  current  pass 

Attribute  values  for  all  rows  for 
ail  cycles 

Number  of  rows  for  each  cycle 
Set  identifier 
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Table  32.  (cont.) 

(Sheet  3  of  4) 


BLOCK 

VARIABLE  OR  ARRAY 

DESCRIPTION 

SETS 

SETREL 

Logical  operator  for  each  set 

(cont . ) 

SETLEFT 

Left-hand  side  of  logical  comparison, 
attribute  value,  or  SETNAMF. 

VALORSET 

Switch  to  indicate  attribute-value 
comparison  or  previously  calculated 
set  comparison 

SETVAI 

Truth  value  of  each  set 

SETTRUE 

Indicates  whether  or  not  set  must  hav 
value  true 

SETDEF 

Indicates  which  sets  apply  to  current 
table 

NSETS 

Number  of  sets 

SIZES 

MAXCOL 

Maximum  number  of  columns 

MAXROW 

Maximum  number  of  rows 

MAXCYC 

Maximum  number  of  cycles 

MAXSET 

Maximum  number  of  sets 

SWITCH 

COLINSW 

True  if  item  fits  a  column 

ROWINSW 

True  if  item  fits  a  row 

CYCINSW 

True  if  item  fits  a  page 

TRUESW 

True  if  item  meets  set  definitions 

MAXROWSW 

True  if  row  size  limit  exceeded 

MAXCYCSW 

True  if  cycle  size  limit  exceeded 

MAXCOLSW 

True  if  column  size  limit  exceeded 

ADDSW 

1  if  values  accumulated  in  table; 

2  if  incremented  by  one 

ROWSW 

1  if  list  of  allowed  row  values; 

2  if  not 

NOSIDESW 

1  if  sides  separated;  2  if  not 
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BLOCK 

SWITCH 
(cent , ) 

TABINDEX 


Table  32.  (cent.) 

(Sheet  4  of  1 


VARIABLE  OR  ARRAY  DESCRIPTION 

I  if  allowed  list  of  values;  2  if 
range  of  values  given;  3  if  all  values 
accepted 

1  if  one  pass  required;  2  if  two 

Column  in  which  item  belongs 
Cycle  in  which  item  belongs 
Row  in  which  item  belongs 


VAT.OOI.SW 

NSEPSW 

COLIND 

CYCIND 

ROWIND 
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PROGRAM  TABGEN 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 


CALLED  BY: 


To  call  all  subroutines  required  to  produce  and 
print  summary  tables  on  the  basis  of  user- 
specified  input,  and  to  print  any  error  messages. 

TABGEN 

None 

ATTIND,  EDITAPE,  EDITERM,  ITIME ,  ITP,  PASS, 
PROCESS,  SIZES,  SWITCH 

COLFIND,  CYCLER,  INITEDIT,  INITIL,  INITAPE, 
INPITEM,  NEXTITEM,  PAGESKP ,  PRINTER,  ROWFIND, 
SETREAD,  SETUP,  TABLER,  TERMTAPE,  TRUTH 

None 


Method 

Program  TABGEN,  on  the  first  pass,  calls  subroutine  SETUP  (statement  6) 
to  read  and  interpret  all  user-request  cards.  If  a  second  pass  is 
required  to  print  the  RED  side,  this  call  is  bypassed  and  subroutine 
INITIL  (statement  7)  is  called  to  do  the  required  initialization. 

As  each  item  is  read  from  HISTDATA  or  HISTAGZ,  subroutine  TRUTH 
(statement  505)  is  called  to  see  whether  the  item  fits  the  most 
restrictive  criteria  (such  as  belonging  to  the  current  side  or  being 
the  requested  type  of  event  or  vehicle).  If  the  item  is  not  rejected 
(TRU£SW=2) ,  subroutines  CYCLER,  ROWFIND,  and  COLFIND  (statements  503, 

500,  502)  are  called  and  the  item  is  rejected  if  it  does  not  belong  on 
any  page,  in  any  row,  or  in  any  column.  If  it  is  not  rejected,  subroutine 
TABLER  (statement  504)  accumulates  the  value  of  the  specified  attribute 
in  the  table,  and  the  next  item  on  the  tape  is  read. 

Whenever  it  is  determined  that  an  item  does  not  belong  in  the  table,  the 
program  immediately  bypasses  further  examination  and  reads  the  next  item 
from  tape  (statement  501) . 

When  all  items  have  been  examined,  subroutine  PRINTER  p* ints  all  pages 
and  all  tables.  A  list  of  error  switches  are  queried  which  indicate 
whether  or  not  the  user  specified  more  pages,  columns,  or  rows  than  the 
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program  is  dimensioned  for  (stato..._nt  600),  and  appropriate  error 
messages  (statements  603,  604,  605)  are  printed  if  any  table  overflow 
occurred. 

If  sides  had  to  be  done  in  separate  passes  through  the  input  tape  due  to 
memory  limitations,  the  above  process  is  repeated  for  the  new  side 
(statement  2).  Otherwise,  the  program  goes  on  to  the  next  set  of  user- 
specified  tables  (statement  5)  until  the  signal  to  terminate  is  encoun¬ 
tered  in  the  call  to  subroutine  SETUP. 

Program  TABGEN  is  illustrated  in  figure  83. 


.  • 

.» 
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SIJBROUTXN  COLFIND 


t.  S 


PURPOSE :  To  determine  whether  the  column  attribute  mat  s 

the  column  specifications. 

ENTRY  POINTS:  COLFIND 

FORMAL  PARAMETERS:  None 

COMMON  BLOCKS:  ATTIND,  COLS,  COLVAR,  PROCESS,  SIZES,  SWITCH, 

TAB INDEX 

SUBROUTINES  CALLED:  ITU- 

CALLED  BY:  TABGEN 


Method 

There  are  three  ways  in  which  the  column  index  may  be  determined.  If 
a  list  of  values  of  the  column  attribute  has  been  input,  an  exact 
match  must  be  found  (statement  1).  If  any  value  of  the  attribute  is 
acceptable,  the  index  will  be  set  if  a  match  is  found  among  the  values 
already  within  the  list;  otherwise,  the  new  value  is  added  to  the  list 
and  its  index  used  (statements  10  to  the  RETURN).  If  a  numeric  range 
of  values  for  the  columns  has  been  specified,  the  current  attribute 
value  is  compared  with  each  limit  to  determine  the  correct  index 
(statement  2  and  beyond) . 

Statement  20  is  encountered  whenever  a  match  is  found  in  the  restricted 
list  of  values.  It  determines  whether  a  particular  page  has  already 
encountered  this  value.  If  it  has  not,  the  value  is  added  to  those 
for  that  page. 

Subroutine  COLFIND  is  illustrated  in  figure  84. 


295 


SUBROUTINE  CYCLER 


PURPOSE : 


ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  determine  the  value  of  the  page  index  on  the 
basis  of  the  cycling  attribute. 

CYCLER 

None 

ATTIND,  CYCS ,  PASS,  PROCESS,  SIZES,  SWITCH, 

TAB INDEX 

ITLE 


TABGEX 


Method 

If  paging  on  an  attribute  is  required,  this  subroutine  sets  the  proper 
index.  If  it  is  not,  the  index  is  set  to  one,  or  to  one  or  two,  if 
separation  of  sides  has  been  requested. 

The  subroutine  starts  by  interrogating  ICYCLF.  to  determine  if  paging 
is  desired.  If  it  is  not,  CYCIND.  cite  page  index,  is  set  to  one 
(statement  8).  If  separation  by  side  is  necessary,  the  value  of 
SIDE  is  examined  and  if  it  is  RED,  CYCIND  is  set  to  two  (statement  12). 

When  paging  on  a  selected  attribute  has  been  requested  (statement  9) 
as  well  as  separation  by  SIDE,  NSEPSW  is  examined  to  find  out  whether 
both  sides  can  coexist  in  memory.  If  not,  CYCINSW  is  set  to  two  if 
it  is  not  the  current  side  and  control  returns  to  TABGEN  (statement 
21). 

When  sides  are  not  separated,  when  both  sides  can  coexist  in  memory,  or 
it  is  the  current  side  (statement  17),  the  current  value  of  the  paging 
attribute  is  looked  up  in  the  list  of  previously  found  values.  If  it 
is  there  for  the  current  side,  the  value  of  CYCIND  is  set  (statements 
15  through  14),  and  the  program  returns. 

If  it  is  not  there  (statement  1)  and  there  is  not  enough  room  in  the 
list  to  store  the  current  value,  the  error  switch  is  set  and  control 
returns  (statement  6) .  If  there  is  room,  the  current  value  of  the 
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attribute  and  the  current  value  of  SIDE  are  stored,  and  that  value  of 
CYCIND  is  returned. 

Subroutine  CYCLER  is  illustrated  in  figure  85. 
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SUBROUTINE  FORMAT 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY' 


To  determine  an  appropriate  print  format  for  any 
floating  point  number. 

FORMAT 

None 

FORMATS 

None 

PRINTER 


Method 


Since  the  column  width  for  all  tables  output  from  TABGEN  has  been 
set  to  eight,  this  subroutine  determines  which  print  format  will  allow 
the  number  to  print. 

The  absolute  value  of  the  number  is  compared  with  the  largest  magnitude 
which  can  be  printed  by  several  formats  (statements  4  through  9) . 

After  the  appropriate  range  is  found,  NFORMT  is  set  to  the  indicated 
format  (statements  11  through  18). 

If  the  number  to  be  printed  is  negative,  the  number  of  significant 
digits  is  reduced  by  one  (statement  20).  If  the  page  has  room  to  allow 
spacing  between  columns,  these  spaces  are  added  to  the  format  (state¬ 
ment  21). 

Subroutine  FORMAT  is  illustrated  in  figure  86. 
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SUBROUTINE  INITIL 


PURPOSE: 

To  initialize  program  variables  and  clear  arrays 

ENTRY  POINTS: 

INITIL 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

001,  ATT I NO,  COLVAR,  COLS,  CYCS,  HEAD,  1NITROW, 
PASS,  ROWS,  SETS,  SIZES,  SWITCH,  TABINDEX 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

SETUP,  TABGEN 

Method 


On  the  first  pass  through  the  data,  constants  and  size  limits  are  set 
and  array  clearing  is  performed.  On  the  second  pass,  only  selected 
arrays  and  constants  are  cleared  in  order  to  preserve  user-input 
parameters. 

Subroutine  INITIL  is  illustrated  in  figure  87. 


Fig.  87.  Subroutine  INITIL 
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FUNCTION  INTREL 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 

COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  set  a  switch  to  indicate  numerically  the 
proper  logical  comparisons  to  be  made  in  sub¬ 
routine  TRUTH. 

INTREL 

INREL  -  Alphabetic  representation  of  a  logical 
comparison 

None 

TTLE 

SETUP 


Method 


A  table  of  the  logical  comparisons  which  may  be  called  for  in  the 
user- input  parameters  is  stored  by  means  of  a  data  statement.  Each 
user  input  is  then  compared  with  this  list,  and  the  index  of  the  match 
is  returned.  A  zero  is  returned  if  there  is  no  match. 

The  index  is  used  in  function  NVALFIND  to  find  the  called-for  logical 
comparison. 

Function  INTREL  is  illustrated  in  figure  88. 


304 


( 


Index  Of 
Called-For 
Logical 
Comparison 


Fig.  88.  Function  INTREL 


FUNCTION  NVALFIND 


PURPOSE : 


To  perform  logical  comparisons  and  return  a  true 
or  false  value. 


ENTRY  POINTS:  NVALFIND 

FORMAL  PARAMETERS:  ISW  -  A  switch  to  indicate  which  comparison  to  per¬ 

form 

NP1  -  Left  side  of  comparison 
NP2  -  Right  side  of  comparison 

COMMON  BLOCKS:  None 

SUBROUTINES  CALLED:  None 

CALLED  BY :  TRUTH 


Method: 

ISW  acts  as  a  pointer  to  the  appropriate  "if"  statement  (statements 
1  through  10).  The  comparison  is  made  and  a  one  is  returned  if  the 
statement  is  true  (statement  11)  and  a  zero  if  it  is  false  (state¬ 
ment  12). 

Function  NVALFIND  is  illustrated  in  figure  89. 
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SUBROUTINE  PRINTER 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  print  the  requested  summary  tables. 

PRINTER 

None 

001,  ATTIND,  COLS,  COLVAR,  CYCS ,  DIRECTRY,  FORMATS, 
HEAD,  JXCODG ,  JXFORM,  ROWS,  SIZES,  SWITCH,  TABINDEX 

FORMAT,  PAGESKP 

TARGEN 


Method 

This  subroutine  prints  the  user-requested  tables.  It  starts  by  cal¬ 
culating  field  widths  according  to  the  number  of  columns  in  the  table 
and  stores  format  information  (statement  5).  If  there  is  a  paging 
attribute,  it  is  printed  (statement  25).  If  the  printing  is  to  be 
done  by  side,  the  current  value  of  SIDE  is  printed  (statement  39). 

The  column  headings  are  then  printed  (statements  35  to  34) .  The 
column  total  array  is  cleared  (statement  62)  as  well  as  the  row  total 
slot.  Each  row  is  then  printed  in  the  called-for  format  with  the 
row  label,  columns  of  data,  and  the  row  total  (statements  10  through 
7).  After  all  rows  have  been  printed,  the  column  totals  are  printed 
(statements  55  through  54). 

After  all  pages  of  the  report  have  been  printed,  column  totals  over 
all  pages  are  printed  (statements  8  through  100). 

Subroutine  PRINTER  is  illustrated  in  figure  90. 


E 
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(cont.) 

(Sheet  2  of  2) 
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SUBROUTINE  ROWFIND 


PURPOSE: 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 

SUBROUTINES  CALLED: 
CALLED  BY: 


To  find  the  row  matching  the  current  value  of 
the  row  attribute. 

ROWFIND 

None 

ATTIND,  INITROW,  PROCESS,  ROWS,  SIZES,  SWITCH, 
TABINDEX 

1TLE 

TABGEN 


Method 


The  value  of  the  row  attribute  is  examined  in  one  of  two  ways  to  deter¬ 
mine  whether  an  item  fits  a  row  definition.  The  row  attribute  is 
matched  against  a  list  of  values  already  appearing  on  the  current  page. 
If  there  has  been  a  list  of  preset  values  and  there  was  no  match,  the 
list  of  preset  values  is  compared  to  see  if  there  is  a  match  there 
(statement  12).  If  not,  control  returns  to  TABGEN  with  a  row  index 
(ROWINSW)  of  two  (statement  5).  If  a  match  is  found,  the  value  is 
added  to  the  current  page,  and  control  returns  with  ROWINSW  set  to  one 
(statements  11,  6). 

If  no  preset  list  has  been  given,  the  number- of -rows  counter  is  incre¬ 
mented,  the  new  value  is  stored  (statement  4),  and  control  returns  with 
ROWINSW  equal  to  one. 

Subroutine  ROWFIND  is  illustrated  in  figure  91. 
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SUBROUTINE  SETUP 


PURPOSE: 


ENTRY  POINTS: 
FORMAL  PARAMETERS: 
COMMON  BLOCKS: 


SUBROUTINES  CALLED: 


CALLED  BY: 


To  read  user- input  parameters  and  interpret 
them;  to  fill  input  arrays;  and  to  set  internal 
switches  on  the  basis  of  these  parameters. 

SETUP 

None 

ATTIND,  COLS,  COMMAND,  DIRECTRY,  HEAD,  IN1TR0W, 
JTIME,  JXCODE,  JXFORM,  PASS,  ROWS,  SETS,  SIZES, 
SWITCH 

INITIL,  INTREL,  ITLE,  NUMGET,  PAGESKP 


TABCEN 


Method 


This  subroutine  reads  ana  interprets  user-request  cards.  There  are 
nine  commands  recognized.  One  of  them,  SIZE,  must  be  the  first  card, 
but  the  rest  may  appear  in  any  order.  If  SIZE  is  not  used,  30  columns 
and  26  rows  are  the  maximum  (statements  999  through  303) .  SIZE  is 
used  to  vary  this  limit  according  to  the  quality  of  the  data  base. 

If  necessary,  two  passes  will  be  performed,  one  for  side  BLUE  and  one 
for  side  RED  (statements  304  through  306) . 

SET  is  used  to  extract  only  certain  items  from  the  data  base  for  in¬ 
clusion  in  the  table.  Sets  may  be  of  the  form  SET1  ATTRIBUTE  EQ  VALUE 
or  SET1  SETA  AND  SETB  where  SETA  and  SETB  have  been  previously  defined 
as  in  the  first  form  (statements  1  through  16). 

HEADER  allows  input  of  as  many  as  five  cards  of  labeling  to  appear  at 
the  top  of  each  table  (statements  50  through  53) . 

The  CYCLE  command  may  contain  an  attribute  name  whose  values  are  to  be 
cycled  through  and/or  the  word  N0SIDE  which  indicates  that  items  are  to 
be  included  regardless  of  side  (statements  60  through  63). 

ADD  has  two  options.  If  the  second  field  is  blank,  the  table  entries  are 
incremented  by  one  for  each  acceptable  item.  If  the  second  field  con¬ 
tains  the  name  of  an  attribute,  the  values  of  that  attribute  are 
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accumulated  in  the  table.  Normally,  the  format  will  be  taken  from  the 
data  base  directory,  but  a  user-specified  one  may  be  placed  in  the  third 
field  of  this  card  (statements  70  through  81). 

ROW  is  followed  in  the  second  field  by  the  name  of  an  attribute.  If 
the  third  field  is  blank,  all  values  of  the  attribute  will  be  used;  if 
not,  a  list  of  allowed  values  will  be  stored  and  the  row  names  will 
be  restricted  to  these  (statements  90  through  93). 

COLUMN  has  three  types  of  specifications.  The  first  two  are  compar¬ 
able  to  those  described  above  under  ROW.  The  third  allows  the  user  to 
specify  a  range  of  values  of  the  attribute  for  each  column  (statements 
200  through  212). 

RUN  causes  the  present  set  of  tables  to  be  generated  and  printed.  New 
table  definitions  may  follow  (statements  230  through  233). 

STOP  causes  the  program  to  terminate  (statement  240) . 

Subroutine  SETUP  is  illustrated  in  figure  92. 
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Fig.  92.  Subroutine  SETUP 
(Sheet  1  of  6) 
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Fig.  92  (cont.) 

(Sheet  4  of  6) 
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SUBROUTINE  TABLER 


PURPOSE:  To  add  to  the  count  of  a  table  entry  and  to 

accumulate  the  value  of  an  attribute  in  the 


table  entry 

ENTRY  POINTS: 

TABLER 

FORMAL  PARAMETERS: 

None 

COMMON  BLOCKS: 

001,  ATTIND 
TAB INDEX 

SUBROUTINES  CALLED: 

None 

CALLED  BY: 

TABGEN 

JXCODE ,  PROCESS,  SIZES,  SWITCH, 


Method 


If  ADDSW  is  two,  denoting  that  a  count  of  items  has  been  specified,  the 
table  entry  is  incremented  by  one  (statement  2).  If  ADDSW  is  one, 
calling  for  accumulation  of  the  value  of  the  attribute,  the  value  is 
added  to  the  table  entry  in  either  fixed  (statement  3)  or  floating 
(statement  4)  point  arithmetic  according  to  TABCODE,  which  was  set  in 
subroutine  SETUP. 

Subroutine  TABLER  is  illustrated  in  figure  93, 
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Subroutine  TABLF.R 


SUBROUTINE  TRUTH 


PURPOSE : 

ENTRY  POINTS: 

FORMAL  PARAMETERS: 
COMMON  BLOCKS: 
SUBROUTINES  CALLED: 
CALLED  BY: 


To  determine  whether  an  item  satisfies  user-input 
set  definitions. 

TRUTH 

None 

PROCESS,  SETS,  SWITCH 

NVALFIND 

TAB GEN 


Method 


This  subroutine  determines  whether  an  item  is  rejected  on  the  basis  of 
user-input  set  definitions.  These  have  been  input  in  this  way: 

SETA  PRIMETAR  EQ  1;  SETB  IREG  EQ  1;  SETC  l REG  EQ  2;  and  SETD  SETB  or 
SETC.  In  this  example,  all  Burst/Damage  events  in  regions  one  and  two 
are  to  be  added  together  in  the  appropriate  row  and  column  of  the  table. 

For  all  the  required  sets,  TRUTH  determines  whether  it  is  type  1  or  2 
(statement  1)  and  does  either  type  1  (statement  5)  or  type  2  (statement  6) 
comparisons  by  calls  on  NVALFIND.  If  it  is  type  1  and  is  not  a  part  of  a 
type  2  comparison  (statement  7),  the  item  is  immediately  rejected  if  the 
comparison  has  the  value  false  (statement  4).  If  it  is  a  false  type  2, 
it  is  immediately  rejected.  If  all  sets  required  to  be  true  are  true, 
the  item  is  accepted  (statement  3) . 

Subroutine  TRUTH  is  illustrated  in  figure  94. 
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/ 

CHAPTER  5 
PROGRAM  HISTP 


PURPOSE 


The  purpose  of  HISTP  is  to  write  a  history  of  the  war  simulated  by 
program  SIMULATE  in  as  much  as  possible  the  same  format  used  by  that 
program.  This  provides  the  user  with  the  option  of  running  SIMULATE  with 
none  of  the  detail  prints  and  then  selectively  printing  the  detail  without 
the  cost  of  rerunning  all  of  SIMULATE. 

The  selection  criteria  are  the  entire  game  history  or  the  portion  between 
user-input  time  pairs,  all  classes  or  a  user-input  one,  all  types  within 
a  class  or  a  user-selected  one,  and  both  sides  or  a  user-selected  one. 

In  addition,  any  print  command  may  be  activated  or  suppressed  using  a 
data  card. 


INPUT  FILES 


The  input  tape  is  taps  HISTAPE  which  contains  the  complete  output  of 
SIMULATE,  the  recovery  tables,  and  the  breakpoint  tables. 


OUTPUT  FILES 


There  are  no  output  files. 


CONCEPT  OF  OPERATION 


First,  the  print  options  for  selection  or  suppression  of  the  potential 
prints  are  read.  This  is  followed  by  a  selected  class  (or  all  classes), 
a  selected  type  (or  all  types),  a  selected  side  (or  both  sides),  and 
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time-pairs  (or  entire  game  history).  From  HISTAPE,  the  recovery  and 
breakpoint  tables  are  read  and  stored. 

Each  event  which  has  been  simulated  to  occur  by  SIMULATE  is  now  read 
from  HISTAPE.  If  it  meets  all  the  user-specified  criteria,  the  appro¬ 
priate  print  is  output  according  to  the  print  options  selected  (table 
33).  In  some  cases,  the  prints  will  differ  slightly  from  those  in 
SIMULATE  because  of  the  unavailability  of  certain  dynamic  parameters. 
Some  of  the  exceptions  are  that  bomber  survival  of  local  attrition  and 
ASM  survival  of  local  attrition  cannot  be  differentiated,  and  that  Enter 
Zone  events  are  not  recorded  if  penetration/depenetration  is  not 
involved. 

Figure  95  illustrates  the  flow  of  program  MISTP. 


COMMON  BLOCK  DEFINITIONS 


External  Comm on  Block s 

The  external  common  blocks  used  by  program  HISTP  in  processing  the  input 
file  are  shown  in  table  34.  Common  blocks  /ITP/,  /TWORD/,  /NOPRINT/,  and 
/MVIDENT/  are  described  in  the  Programming  Specifications  Manual,  Volume 
I,  Part  A,  Appendix  A. 


Internal  Common  Blocks 


There  are  no  internal  common  blocks  used  by  program  HISTP. 


326 


Table  33. 


Prints  Controlled  by  JPRINT 
(Sheet  1  of  2) 


EVENT 

1  Missile  Launch 


2  Bomber  Launch 


3  Complete  Launch 


4  Refuel 


5  Enter  Zone 

6  Zone  Status 

7  Area  Attrition 

8  Local  Attrition 


9  Terminal  BMD 
10  Burst/Damage 


11  Enter  Refuel  Area 


PRINT  OPTION  DESCRIPTION 

1  Missile  Launch 

2  Results  of  attempted  missile  launch 

3  All  launched,  or  all  targets  covered 

4  Launches 

6  Successful  bomber  or  tanker  launch 

7  Delay 

8  Dead  aircraft  launch  base 

9  Killed  during  powered  flight 

47  MIRV  success 

48  MIRV  target  list. 

10  Successful  refueling 

11  Refuel  abort 

12  No  tanker  available 

13  Return  home 

15  Enter  enemy  territory 

16  Leave  enemy  territory 

17  Status  of  defense  zones 

18  Area  attrition 

19  Bomber  survives 

20  Bomber  kill  (before/ufter) 

21  ASM  survives 

22  ASM  ki] 1 

23  Dud  warhead 

24  Terminal  BMD  results 

25  Warhead,  coordinate  data 

26  Result  of  detonation 

27  Collocation  offset  distances 

28  Tanker  arrival  at  refuel  area 


/ 


Table  33 .  (cont . ) 

(Sheet  2  of  2) 


EVENT 

12  Leave  Refuel  Area 


13  Abort 

14  ASM  Launch 

15  Decoy  Launch 

16  Recover 


17  Change  Altitude 

18  Area  BMD 


19  Recheck 


20  Determine  time  of 
naval  attrition 

21  Naval  attrition 


PRINT  OPTION  DESCRIPTION 

29  Tanker  leave  refuel  area  empty 

30  Tanker  leave  refuel  area  with  fuel 

31  Tanker  abort  while  on  station 

32  Scheduled  abort 

33  Random  abort 

34  Successful  ASM  launch 

35  ASM  launch  failure 

36  Decoy  1 aunch 

37  Successful  recovery 

38  Failure  --  base  dead  on  arrival 

43  No  base  on  depenetration 

44  Recovery  base  saturated 

50  Recover  at  home  base 

51  Home  base  dead  on  arrival 

39  Change  altitude 

J  Selection  for  defense 

41  Allocation  of  area  CMD 

42  Random  area  BMD 

45  Base  killed  after  recovery 

49  Home  base  killed  after  recovery 

46  Recovery  data 

52  Scheduled  for  naval  attrition 

53  Naval  attrition 
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Table  34.  Program  HISTP 

BLOCK 

VARIABLE  OR  ARRAY* 

BRKPNT 

NTYPECUM(IS) 

NBLUETYP(IS) 

INDEEGCL(15) 

INDBEGTY [250) 

NAMES 

NAMESIDE(2) 

NAMECLASC15) 

NAMETYPE(250) 

HI  STOUT 

NHISTOUT(200)  , 

External* Common  Blocks 

DESCRIPTION 

i 

Cumulative  number  of  types  through 
end  of  class 

Number  of  BLUE  types  in  class 
Beginning  index  of  class 
Beginning  index  of  type 

Name  of  side 
Name  of  class 
Name  of  type 

Simulator  event  data;,  see 
program  READSUM  for  description 


*  Parenthetical  values  indicate  array  dimensions.  All  other  elements  are 
single  word  variables. 


1 

i 

. 
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Fig.  95. 


Program  :IISTP 
(Sheet  1  of  11) 
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Fig.  95.  fcont.) 

(Sheet  2  of  11) 


Fig.  95.  (cont.) 

(Sheet  5  of  11) 


/  ERROR  IN 
/  BDAM,  CODE 
I  LT  1  OR  CT  S 
CONTINUE  RUN 


/ 


Fig.  95.  (cont.) 

(Sheet  8  of  11) 
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Time  Of  Naval  Attrition 


ATTRIBUTE 

NAME 

ABRATE 

ADBLI 

ADBLR 

ADCFCMP 

ADEFZON 

AGX 

AGY 

AUOB 

ALERTDBL 

ALERTDLY 

AREA 

ASMTYPE 

ATTRCORR 

ATTRLEG 

ATTRSUPF 


APPENDIX  A 

QUICK  ATTRIBUTE  NAMES  AND  DESCRIPTIONS 


DESCRIPTION 


Probability  of  aircraft  in-flignt  abort  per  hour 
of  flying  time 

ALERTDBL  probability  for  initiative  attack 

ALERTDBL  probability  for  a  retaliatory  attack 

Area  ballistic  missile  defense  (BMD)  component 
index  (radar  or  missile  launch  site) 

Area  ballistic  missile  defense  (BMD)  zone  number 

Offset  X-coordinate  of  AGZ  (fiftieths  of  nautical 
miles) 

Offset  Y-coordinate  of  AGZ  (fiftieths  of  nautical 
miles) 

Actual  height  of  burst  of  weapon  (air  or  ground) 

Probability  of  destruction  before  launch  (DBL) 
of  alert  delivery  vehicle  (missile  or  bomber) 

Delay  of  alert  vehicle  before  commencing  launch 
(hours) 

Area  of  a  bomber  defense  ZONE  (millions  of 
nautical  niiles^) 

Air-to-surface  missile  type 

Attrition  parameter  for  a  bomber  corridor  (proba¬ 
bility  of  attrition  per  nautical  mile) 

Attrition  parameter  ft”-  each  route  leg  in  bomber 
sortie  (probability  ot  crition  per  nautical 
mile) 

Amount  of  original  attrition  that  remains  after 
defense  suppression 
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ATTRIBUTE 

NAME 


DESCRIPTION 


AZIN1 

First  area  defense  zone  covered  by  a  BMD  long- 
range  radar 

AZON2 

Second  area  defense  2one  covered  by  a  BMD  long- 
range  radar 

AZ0N3 

Third  area  defense  zone  covered  by  a  BMD  long- 
range  radar 

BCODE 

Code  indicating  the  outcome  of  a  simulated 
homber  event 

BONO 

Bombing  encyclopedia  number 

BLEGNO 

Index  to  boundary  line  segment 

CATCODE 

Category  Code  as  reflected  in  Joint  Resource 
Assessment  Data  Base  (JAD) 

CCREL 

Regional  reliabi  lity  of  offensive  command  and 
control  (probability) 

CEP 

Circular  error  probable  (CEP),  delivery  error 
applicable  to  bomber  and  missile  weapons  (nauti¬ 
cal  miles) 

CLASS 

Class  name  assigned  to  identify  sets  of  TYPES 
in  data  base 

CLASST 

Target  CLASS 

CNTRYLOC 

Country  code  for  country  where  item  is  located 

CNTRYOWN 

Country  code  for  country  which  own?  the  item 

CNTYLOCT 

Target  country  code  fur  country  where  the  target 
is  located 

CNTYOWNT 

Target  country  code  for  country  which  owns  the 
target 

CODE 

Outcome  code  for  a  general  event  used  in  simula¬ 
tion 

CPACTY 

Capacity  of  a  bomber  recovery  base  (number  of 
vehicles) 

2 


ATTRIBUTE 

NAME 


DESCRIPTION 


DATE IN 
DATEOUT 
DE FRANCE 

DELAY 

DELTA 

DESIG 

DGX 

DGY 

DHOB 

EFECNESl) 
EFECNES2 j 


EFECTNES 


EVENT 

EVENTN 

FFRAC 

FLAG 


Earliest  date  in  inventory  (year) 

Latest  date  in  inventory  (year) 

Typical  range  of  interceptors  at  defense  bases 
near  a  corridor  (nautical  miles) 

Delay  time  (e.g.,  launch  delay  time)  (hours) 

Time  interval  between  successive  vehicle  launches 
from  the  same  base  (missile  or  bomber)  (hours) 

Target  designator  code,  e.g.,  AB100,  which 
uniquely  identifies  epch  target  element  included 
in  the  data  base 

Offset  X-coordinate  of  desired  ground  zero  (DGZ) 
(fiftieths  of  naut.ieal  miles) 

Offset  Y-coordinate  of  DGZ  (fiftieths  of  nautical 
miles) 

4  • 

Height  of  burst  of  weapon  (0-ground,  1-air.) 

Attributes. assigned  to  fighter  interceptor 
units  (I CLASS  =  5  in  the  data  base)  :  the 
value  EFECNES1  or  EFECNES2  is  assigned  to 
the  attribute  EFECTNES  depending  on  value  of 
BASEMOD  input  parameter  POSTURE  (if  POSTURE* 1, 
EFECNES1  is  used,  otherwise  EFECNES2  value  is 
assigned) 

Air  defense  capability  (arbitrary  scale)  established 
by  user  to  indicate  relative  effectiveness  of 
air  defense  command  and  control  installations  and 
fighter  interceptor  bases 

Index  to  event  type 

Index  to  type  of  event  which  did  not  occur 

Fission  fraction  (fission  yield/total  yield) 

Numeric  code  (1  through  9  permitted)  used  to 
impose  restrictions  on  the  allocation  of 
weapons  within  QUICK 
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ATTRIBUTE 


NAME 

DESCRIPTION 

FLTNO 

Flight  number  for  a  sortie 

FUNCTION 

Operational  application  code  for  a  weapon 
system  (e.g.,  ICBM) 

FVALH1 

Fraction  of  value  of  target  in  first  hardness 
component 

FVALT1 

Franction  of  target  value  that  disappears  by 

T1  (percent) 

FVALT2 

Franction  of  target  value  that  disappears  by 

T2  (percent) 

111 

First  hardness  component  of  a  target  (VULN) 

H2 

Second  hardness  component  of  a  target  (VULN) 

HI LOATTR 

The  ratio  of  the  low-altitude  attrition  rate  to 
the  high-altitude  rate  (decimal  fraction) 

IALERT 

Alert  status;  1=  alert,  2  =  nonalert 

I  ALT 

Altitude  index  (1  =  high,  0  =  low) 

I ATTACK 

Selection  index  for  preferential  area  BMD;  1 
forces  target  selection  for  defense. 

ICLASS 

Class  index  assigned  for  game 

ICLASST 

Target  class  index 

I COMP LEX 

Complex  index 

ICORR 

Bomber  corridor  index  number  assigned  in 
program  PLANSET: 

1  -  Tactical  (FUNCTION=TAC)  aircraft  corridor 

(TYPE  name  DUMMY  in  the  data  base) 

2  -  Naval  attack  corridor  (TYPE  name 

NAVALAIR  in  the  data  base)  used  by 
bomber  units  with  PKNAV  greater  than 
zero 


ATTRIBUTE 

NAME 

ICOKR  (cont.) 
IDBL 

IDUD 

IGIW 

I GROUP 

IMIRV 

INDEXNO 

INDV 


DESCRIPTION 


>2  -  Other  corridors  used  by  long-range  bombers 
(FUNCTION=LRA) 

Index  to  data  tables  for  time-dependent  destruc¬ 
tion  before  launch  probability 

Dud  warhead  indicator;  assigned  to  weapons  which 
arrive  at  the  target  but  fail  to  detonate;  1-dud 
warhead 

Indices  of  General  Industrial  Worth  (IGIW) 

(dol lars) 

Group  index  assigned  for  weapon  grouping  during 
game 

Identifying  index  for  system  with  multiple  inde¬ 
pendently  targetable  re-entry  vehicles 

Index  of  a  data  base  item  (potential  target)  used 
during  processing  to  identify  the  item 

Vehicle  index  within  base 


INTAR 

IPENMODE 

I  POINT 
IRECMODE 

I  REFUEL 

IREG 

IREP 

IS1TE 

ITGT 


Target  index  (corresponds  to  INDEXNO) 

Penetration  mode;  1  =  aircraft  uses  penetration 
corridor,  0  =  penetration  corridor  not  used 

Index  to  a  geographic  point 

Recovery  mode;  1  =  aircraft  should  plan  recovery, 
0  =  aircraft  recovery  not  planned 

Bomber  refueling  code 

Index  to  identify  a  geographic  region 

Reprogramming  index  (capability  of  missile 
squadron) 

Site  number 

Target  index  number  assigned  by  Plan  Generation 
subsystem 
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ATTRIBUTE 

NAME 

ITIME 

ITYPE 

ITYPET 

IVULN 

IWTYP2 

JTYPE 

JTYPET 

KORSTYLE 

LAT 

LEGNO 

LINK 

LONG 

MAJOR 

MAX F RAC V 

MAXKILL 


DESCRIPTION 

Index  to  time  periods  in  time-dependent  DBL  data 
tables 

Type  index  assigned  for  game 
Target  type  index 

Index  to  vulnerability  number  table 
Second  warhead  type 
Type  index  within  class 
Target  type  index  within  class 

Parameter  to  adjust  mode  of  corridor  penetration 
Latitude  (degrees)* 

Index  to  line  segment 

The  index  of  a  leg  linked  to  the  current  point 
Longitude  (degrees)* 

Major  reference  number  as  reflected  in  the  Joint 
Resource  Assessment  Data  Base  (JAD) 

Maximum  value  of  weapon  resources  to  be  used  relative 
to  target  value  (in  processing  MAXCOST=MAXFRACV) 

Desired  maximum  damage  expected  for  a  target 


Latitude  and  longitude  are  carried  internally  in  the  QUICK  system  in 
the  following  format:  , 

North  latitude  0.  (equator)  to  +90.  (North  Pole) 

South  latitude  0.  (equator)  to  -90.  (South  Pole) 

East  longitude  180.  to  300.  (Greenwich  Meridian) 

West  longitude  0.  (Greenwich  Meridian)  to  180. 

These  attributes  may  be  input  in  either  the  above  format  or  in 
standard  degree,  minute,  second,  direction  format. 
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ATTRIbUTIi 

NAME 

MINK1LL 

MINOR 

MISDEF 

MVA 


MWMDS 


DESCRIPTION 


The  required  minimum  damage  established  for 
a  target 

Minor  reference  number  as  reflected  in  JAD 
to  identify  an  item 

Number  of  terminal  ballistic  missile  interceptors 
for  a  target 

Manufacturing  value  added  (MVA) ;  indicates  the 
amount  of  value  added  by  manufacture  within  a 
specific  area  (expressed  in  U.  S.  dollars) 

Number  of  missile  warheads  penetrating  area 
defenses  to  terminal  defense 


NADBLI 


NALRTDBL  for  initiative  attack 


NADBLR 

NAINT 

NALRTDBL 


NALRTDBL  for  retaliatory  attack 

Number  of  area  ballistic  missile  interceptors  at 
an  interceptor  launch  base 

Probability  of  destruction  before  launch  (DBL) 
of  non-alert  vehicle 


NALRTDLY 

NAME 

NAREADEC 

NASMS 

NCM 

NDECOYS 

NDET 

NEXTZONE 

NMPSITE 


Delay  of  non-alert,  vehicle  before  commencing 
launch  (hours) 

Arbitrary  alphameric  descriptor  for  any  item 
included  in  the  data  base 

Number  of  decoys  per  independent  re-entry  vehicle 
for  area  BMD 

Number  of  ASMs  carried  by  a  bomber 

Number  of  countermeasures  carried  by  vehicle 

Number  of  decoys  on  a  bomber  or  number  of  decoys 
per  independent  re-entry  vehicle  for  terminal  BMD 

Number  of  warheads  detonating  in  current  event 

The  adjacent  zone  to  a  side  of  a  defense  zone 

Number  of  missiles  per  site 
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ATTRIBUTE 

NAME 


DESCRIPTION 


i 


NOALERT 

NOBOMB 1 

NOBOMB2 

NOINCOM 

NOPERSQN 

NOPERSQ1) 

NOPERSQ2) 

nopersqb) 

NPEN 

NTARG 

NTINT 

NWHDS 

NWPNS 

NWTYPE 

PARRIVE 

PAYLOAD 

PDES 

PDUD 

PEN 

PPPF 


Number  of  vehicles  on  alert  at  a  base 
Number  of  first  bomb  type  carried  by  vehicle 
Number  of  second  bomb  type  carried  by  vehicle 

Number  of  delivery  vehicles  in  commission 

Number  of  weapon  vehicles  per  squadron 

Attributes  used  in  program  BASEMOD  to  compute 
the  value  of  the  attribute  NOPERSQN  for  bomber 
units;  numbers  1,  2,  and  .1  specify  surprise, 
initiative,  and  retaliatory  attack  plans, 
respectively 

Number  of  warheads  penetrating  in  current  event 

Number  of  targets  in  missile  launch  event 

Number  of  terminal  BMD  interceptors  at  target 

Number  of  warheads  per  independent  re-entry 
vehicle  (missiles) 

Number  of  weapons  in  a  group 

Warhead  type 

Probability  of  bomber  arrival  in  current  event 

Index  which  identifies  entire  weapon  and 
penetration  aid  complement  on  a  vehicle 

Probability  that  launch  failure  destroys  missile 

Probability  a  warhead  will  fail  to  detonate 

Penetration  probability  for  a  weapon 

Probability  of  failure  during  powered  flight 
(missiles) 
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ATTRIBUTE 

NAME 

PINC 

PKMIS 

PKNAV 

PLABT 

PLACE 

PLACEN 

POP 

POSTURE 

PRABT 

PRIMETAR 

PSASW 

RADIUS 
RANGE 
RANGE DEC 


RANGE REF 
REL 

RESERVE 

SIDE 

SITENO 


DESCRIPTION 

Probability  that  a  missile  is  in  commission 

Probability  a  missile  fails  to  penetrate  terminal 
defense 

Single  shot  kill  probability  of  a  weapon  against 
a  naval  target  (a  value  greater  than  zero 
restricts  weapon  use  to  naval  targets) 

Probability  of  vehicle  launch  abort 

Index  to  geographic  location  of  an  event 

Index  to  geographic  location  of  an  event  which 
did  not  occur 

Population  (cities)  (thousands) 

Force  readiness  condition 

Probability  of  refueling  abort 

Prime  target  flag;  1  signifies  priority  target 
in  a  complex 

Destruction  before  launch  probability  assigned  a 
weapon  for  a  specified  time  period 

Size  descriptor  for  area  targets  (nautical  miles) 

Vehicle  range  (nautical  miles) 

Range  decrement  for  low-altitude  aircraft  flight 
(high  range/low  range) 

Range  (nautical  miles)  of  bomber  with  refueling 

Reliability  -  probability  that  weapon  system  will 
arrive  at  target  given  successful  launch 

Technique  used  to  remove  certain  targets  from 
weapon  allocation  when  RESERVE  =  0 

Item  side  name,  currently  cither  "RED"  or  "BLUE" 

Site  number  (currently  for  individual  missile 
sites) 
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ATTRIBUTE 

NAME 

SPDLO 

SPEED 

SQNNO 

T1 

T2 

TS 

TA1M 

TARDEFUI 

TARDOELO 

TASK 

TGTSTAT 

TIME 

TIMEN 

TMDEL 

TPASW 

TRETARG 


DESCRIPTION 

Speed  at  low  altitude  (knots) 

Speed  (knots) 

Squadron  number 

Time  of  departure  of  first  value  component  of  a 
target 

Time  of  departure  of  second  value  component  of  a 
target 

Time  of  departure  of  third  value  component  of  a 
target 

Number  of  aim  points  perceived  by  terminal  defense 
in  current  event 

Level  of  local  bomber  defense  at  high  altitude* 

Level  of  local  bomber  defense  at  low  altitude* 

Target  task  code  indicating  targeting  priority 

Indicates  target  status  as  dynamic  or  nondynamic; 
in  simulation  status  (alive/dead)  is  maintained 
for  dynamic  targets 

Game  time  at  which  event  occurred  (hours) 

Time  planned  for  event  which  did  not  occur  (hours) 

Mean  delay  time  to  relaunch  after  a  nondestructive 
aircraft  abort  (hours) 

Time  at  which  a  time  period  ends  for  DBL  data 
tables;  there  may  be  up  to  10  time  periods  for 
each  table 

Time  required  to  retarget  for  known  in-flight 
missile  aborts  (hours) 


* 


Arbitrary  units  scaled  by  user-input  parameter  in  Plan  Generation 
subsystem.  Minimum  value  0  for  no  defense.  Highest  allowed  defense 
level  is  +7. 


ATTRIBUTE 

NAME 


DESCRIPTION 


TTOS 

TVUL 

TYPE 

TYPET 

TYPE1 ) 
TYPE2  / 


VAL 

VALU 

VALll 

VAL2J 


VULN 

WACNO 


Total  time  on  station  (for  a  tanker)  (hours) 

Time  a  missile  remains  within  vulnerable  range 
of  launch  site  (hours) 

Arbitrary  alphameric  designator  (type  name)  to 
identify  smallest  sets  in  data  base 

Target  TYPE 

Attributes  assigned  fighter  interceptor  units 
(ICLASS=5  in  the  data  base)  :  attribute  TYPE  is 
assigned  the  TYPE1  or  TYPE2  value  based  on 
BASEMOD  input  parameter  POSTURE  (P0STURE=1  TYPE1 
is  used;  otherwise  TYPE2  value  used) 

Relative  value  of  an  item  within  its  CLASS  as 
established  in  the  data  base  by  the  user 

Game  value  of  an  item  (assigned  in  plan 
generation  based  on  user-input  parameters) 

Attributes  assigned  fighter  interceptor  units 
(ICLASS=5  in  the  data  base) :  attribute  VAL  is 
assigned  the  VAL1  or  VAL2  value  based  on 
BASEMOD  input  parameter  POSTURE  (P0STURE«1,  VAL1 
is  used;  otherwise  VAL2  value  is  assigned) 

Vulnerability  number 

World  aeronautical  chart  number 


W11DTYPE 

WHDTYPEN 


YIELD 


ZONE 


Warhead  type  index  assigned  in  the  data  base 
Warhead  type  index  (used  with  EVENTN) 

Yield  (MT) 

An  area  bomber  defense  zone  enclosed  by  a  set  of 
linked  boundary  points 


/ 

APPENDIX  B 

ENTRY  POINTS  FOR  QUICK  UTILITY  ROUTINES 


This  appendix  contains  an  alphabetic  listing  of  the  entry 
points  associated  with  all  utility  programs  and  subroutines. 
Subroutines  associated  with  each  of  these  entry  points  are 
indicated  below. 


ENTRY  POINT 

TO  SUBROUTINE 

ABORT 

ABORT 

ALOCDIR 

FILEHNR 

ANOTHER 

ANOTHER 

ATN2PI 

ATN2PI 

CHANGE 

CHANGE 

CLOSPIL 

CLOSPIL 

CLRCMON 

CLRCMON 

DEACTIV 

FILEHNR 

DECLARES 

DECLARES 

DELLONG 

DELLONG 

DIFFLNG 

DIFFLONG 

DIFFLONG 

DIFFLONG 

DISTF 

DISTF 

DSTF 

DSTF 

ENDDATA 

ENDDATA 

ENDTAPE 

ENDTAPE 

ERAZE 

ERAZE 

EQUIV 

EQUIV 

FILEDUMP 

FILEDUMP 

FILEHNR 

FILEHNR 

GETCLK 

GETCLOCK 
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ENTRY  POINT 


TO  SUBROUTINE 


GETCLOCK 

GETCLOCK 

GETDATE 

GETDATE 

GETDF 

GETDF 

GETLIMIT 

GETLIMIT 

GETLOC 

GETLOC 

GETVALU 

GETVALU 

INBUFDK 

INERRDK 

INERRTP 

IN I TAP 

INITAPE 

INITEDIT 

INITEDT 

INLABEL 

INPVTEM 

INT5RP 

INTERPGC 

INTRPGC 


INBUFDK 

INERRDK 

INERRTP 

FILEHNR 

FILEHNR 

INITEDIT 

INITEDIT 

INLABEL 

INPITEM 

INTERP 

INTERPGC 

INTERPGC 


KEYMAKE 

KEYMAKE 

LOCF 

LOCF 

LOCREAD 

LOCREAD 

LOCWRIT 

LOCREAD 

LOCWRITE 

LOCREAD 

NEWUNIT 

NEWUNIT 

NEXT APE 

NEXT APE 

NEXT FILE 

NEXTFILI 

entry  point 

NEXTITEM 

NEXTITM 

NODIRC 

NUMGET 

OPENSPL 

ORDER 

OUTBFDK 

OUTBFT11 

OUTDF 

OUTERDK 

OUTERTP 

OUTFI LE 

OUTITEM 

OUTWORDS 

OUTWRDS 

PAGES KIP 

PAGES KP 

PRITEM 

PRNTBAS 

PRNTBASE 

PRNTBSE 

PRNTDATA 

PRNTDTA 

PRNTDIRC 

PRNTDRC 

PRNTLAB 

PRNTPAGE 

PRNTPGE 

ROARRAY 

READDIR 

RE LOAD F 


3f>4 


TO  SUBROUTINE 

INITITEM 

INITITEM 

NODIRC 

NUMGET 

OPENSPL 

ORDER 

OUTBFDK 

OUTBFTP 

OUTDF 

OUTERDK 

OUTERTP 

OUTFI LE 

OUTITEM 

outwords 

OUTWORDS 

PAGESKP 

PACES KP 

PRITEM 

PRNTBASE 

PRNTBASE 

PRNTBASE 

PRNTDTA 

PRNTDTA 

PRNTDIRC 

PRNTDIRC 

FILEHNR 

PRNTPGE 

PRNTPGE 

RDARRAY 

READDIR 

RELOADF 


ENTRY  POINT 

REORDER 

SETHEAD 

SETREAD 

SETWRIT 

SETWRITE 

SKIP 

SSKPC 

STORAGE 

TERMTAP 

TERMTAPE 

TERMITE 

TIMEDAY 

TIMEME 

WARNING 

WRARRAY 

WRITE  DIR 

WRITEDR 

WRWORD 


TO  SUBROUTINE 

REORDER 

SETHEAD 

SETREAD 

F I  LEI  IN  R 

FILEHNR 

SKIP 

SSKPC 

STORAGE 

TERMrAP 

TERMTAP 

TERMTAP 

TIMEDAY 

TIMEME 

ABORT 

RDARRAY 

WRITEDIR 

WRITEDIR 

FI  LEI  IN  R 
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EFFECTIVE  PAGES  -  25  August  1972 


This  list  is  used  to  verify  the  accuracy  of  CSM  PSM  9A-67,  Volume  III, 
Part  A,  after  change  1  pages  have  been  inserted.  Original  pages  are 
indicated  by  the  letter  0,  and  change  1  by  the  numeral  1. 


>age  No. 
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Title  Page,  Part  A  0 
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CH-1 


Add  NWORDS 
To  INDATAPC2) 


SUBROUTINE  SSTAT 


To  compute  and  print,  zone  status  information. 

SSTAT 

None 


PURPOSE ; 

ENTRY  POINTS; 

FORMAL  PARAMETERS: 
COMMON  BoOCKS : 

SUB  ROUTINES  CALLED: 
CALLED  BY: 


HI STOUT,  IPRINT,  NAMES 
ZSTATUS 

IIISTWRIT,  PLANTS 
DONE  XT ,  ENDGAME 


NWORDOUT,  TIME,  ZONES 


Method 

JT,  the  number  of  zone  status  events  executed,  is  increased  by  one.  The 
following  computations  are  made  for  both  of  the  two  sides.  NPENTOT,  the 
total  number  of  penetrators ,  is  initialized  to  zero.  IBEG  is  set  to 
MINZONE(K),  the  minimum  zone  number  for  the  current  side.  IEND  is  set 
to  MAXZONE(K),  the  maximum  zone  number  for  the  current  side.  NPENZ(I), 
the  number  of  penetrators  in  each  zone  I  from  IBEG  through  IEND,  are 
added  together  and  stored  in  NPENTOT. 

If  NPENTOT  is  nonzero,  current  game  time  TIME  and  the  name  of  the  current 
side  NAMESIDE(K)  are  printed.  Eor  each  I,  the  zones  from  IBEG  through 
IEND,  the  following  information  is  printed:  I,  the  zone  number;  NPENZ(I), 
the  number  of  penetrators  in  the  zone;  ZDHFPOT(I),  the  defensive  effective¬ 
ness  in  the  zone;  ZCCPOT(I),  the  command  and  control  effectiveness  in  the 
zone;  and  KILL 2(1),  the  number  killed  in  the  zone  by  area  attrition. 

If  NPENTOT  is  zero,  no  printoul  is  made  for  the  current  side. 

After  the  above  has  been  executed  for  both  sides,  JT  is  compared  to 
.TTMAX ,  the  desired  number  of  zone  status  events  io  be  executed.  If  JT  is 
equal  to  JTMAX,  the  subroutine  exits.  Otherwise  FUT1ME,  the  time  for  the 
execution  of  the  next  zone  status  event,  is  set  to  TIME  plus  one-quarter 
hour.  JOANNA,  the  second  parameter  in  the  call  to  subroutine  PLANTS,  is 
set  so  that  PLANTS  does  not  reference  the  format  index  arrays,  which  SSTAT 
does  not.  use.  Subroutine  PLANTS  is  called  to  plant  a  zone  status  event 
for  execution  a I.  i-UTIMl  .  NWORDOUT,  tho  numbc*”  of  words  of  the  HTSTOUT 
block  to  be  used,  is  set  to  zero,  and  the  subroutine  exits. 
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CII-I 


If  the  zone  status  print  ^option  17)  is  not  requested,  this  event  is 
planted  to  maintain  the  random  number  and  event  sequence.  No  informa¬ 
tion  is  printed,  however. 

Subroutine  SSTAT  is  illustrated  in  figure  52. 
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SUBROUTINE  STATSIJM 


PURPOSE: 

To  print  a  summary  of  the  stutus  of 
by  class  and  type. 

ENTRY  POINTS: 

STATSUM 

FORMAL  PARAMETERS : 

None 

COMMON  BLOCKS: 

BRKPNT,  KEYWORDS,  NAMES,  19501 

SUBROUTINES  CALLED: 

IGET,  PAGESKP 

CALLED  BY: 

ENDGAME 

Method 

A  page  is  ejected  on  the  standard  output,  and  NTYPES  'is  set  to 
NTYPECUM(15) ,  the  total  number  of  types  in  all  classes. 

Por  each  type,  the  following  computations  arc  made.  The  number  of 
survivors  NSURV(l)  is  initialized  to  zero.  IBEG  is  sot  to  the  first 
index  of  the  current  type  and  IEND  to  the  last.  Since  all  items  were 
alive  initially,  NINIT(I),  the  number  of  items  of  the  current  type  alive 
initially,  is  found  from  the  two  indices.  Through  successive  calls  to 
subroutine  IGET,  the  status  indicator  .in  the  STATUS  array  word  for  each 
item  of  the  current  type  is  tested.  IGET  returns  a  zero  for  a  dead 
item  and  a  one  for  a  live  item,  so  NSURV(,T),  the  number  of  items  of  the 
current  type  surviving-,  is  computed  by  adding  together  all  the  statuses. 

NT,  the  number  of  types,  is  initialized  to  zero. 

For  each  class,  the  following  computations  are  made  and  results  printed. 
The  current  class  name  NAMCLASS(K)  is  printed.  For  each  side,  the 
following  is  done.  The  current  side  name  NAMES JDE(L)  .is  printed.  If 
the  current  side  is  side  one,  BLUE,  IBEG  is  set  to  the  number  of 
types  NT  plus  one.  IEND  is  set  to  NT  plus  NBLIJETYP(K),  the  number  of 
Blue  types  in  the  current  class.  If  the  current  side  is  side  two,  RED, 
IBEG  is  set  to  IEND  plus  one  and  TEND  and  NT  are  both  set  to  NTYPECUM[K] , 
the  total  number  of  types  in  the  current  class. 

In  either  case,  using  IBEG  and  IEND  as  limits,  the  name  of  the  current 
type  NAMETYPE(l),  the  beginning  base  index  for  the  type,  and  NINlT(l) 
are  printed  for  all  types.  In  addition,  if  the  type  is  one  for  which 
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entry  point 


REORDER 

SETHEAD 

SETREAD 

SETWRIT 

SETWRITE 

SKIP 

SSKPC 

STORAGE 

TERRI' AP 

TERMTATE 

TERMTPE 

timeday 

TIME ME 

WARNING 

WRARRAY 

WRITEDIR 

WRITEDR 

WRWORD 


TO  SUBROUTINE 

REORDER 

SETHEAD 

SETREAD 

filehnr 

filehnr 

SKIP 

SSKPC 

STORAGE 

TERRI' AP 

TERMTAP 

TERMTAP 

timeday 

TIMEME 

ABORT 

RDARRAY 

WRITEDIR 

WRITEDIR 

FILEHNR 
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